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ABSTRACT 


This  document  familiarizes  the  user  with  the  features 
available  using  NIPS  360  FFS  Job  Preparation  procedures.  It 
describes  symbolic  parameters  and  file  naming  conventions, 
illustrates  general  approaches  to  running  jobs  using  single 
or  multiple  data  bases  and  file  libraries.  Job  Control 
Language  (JCL)  examples  for  each  system  component  are  given. 

This  document  supersedes  CSM  UM  15-^^  »Tir 
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Section  1 


INTRODUCTION 


This  voluae  is  intended  to  faailiarize  the  user  with  the 
features  available  using  NIPS  360  FPS  Job  Preparation 
procedures  and  the  Banner  in  which  they  are  used. 

Section  2 describes  syabolic  paraweters  and  file  naning 
conventions.  It  also  illustrates  general  approaches  to 
running  jobs  using  single  or  sultiple  data  bases  and  file 
libraries. 

Section  3 contains  JCL  exanples  for  each  coaponent  and 
additional  inforaation  pertinent  to  each  procedure. 

Section  4 contains  JC1  exaaples  for  S/360  Utilities 
which  are  used  to  duap  and  restore  RASP  answers  and  the  User  J 

Pile  Library  fron  disk  to  tape  and  vice  versa. 

Section  S describes  procedures  which  are  used  in  File 
Haintenance,  Output  Processing  and  the  Retrieval  and  Sort 

Processor  coaponent.  , 

Section  6 describes  the  procedures  and  considerations  ’ 

necessary  to  create,  aaintain  and  process  NIPS  data  bases 
using  the  S/370  Virtual  Storage  Access  Nethod  (VSAH) . 
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Section  2 


FEATURES  OP  NIPS  360  FPS  PROCEDURES 


NIPS  360  PPS  has  single-step  cataloged  procedures  using 
syabolic  parameters.  This  feature  allows  a user  to  run  all 
PPS  jobs  with  no  DD  statement  overrides  unless  one  of  the 
following  conditions  exists: 

a.  RASP  OP,  or  QUIP  run  with  more  than  three  data 
bases  and/or  more  than  three  file  libraries 

b.  PH  run  with  transaction  source  from  tape 
or  disk 

c.  PH  run  with  auxiliary  output  on  tape  or 
disk 

d.  QUIP  run  storing  a query  into  a user  library. 

e.  OP  run  with  record  output. 

The  procedures  provide  a convention  for  naming  user 
data  files  and  file  libraries  which  will  be  discussed  in 
subsequent  paragraphs. 

2.1  Symbolic  Parameters 

Symbolic  parameters  simplify  the  overriding  of  DD 
statements  in  the  execution  of  jobs.  Basically,  they  allow 
the  user  to  equate  names,  units,  and  volumes  to  symbolic 
parameters  in  the  EXEC  card  without  concern  for  the  step 
name  or  the  order  of  DD  cards  within  a procedure.  The  use 
of  syabolic  parameters  does  not  preclude  the  overriding  of 
DD  cards.  A DD  card  override  takes  precedence  over  syabolic 
parameters.  Each  procedure  has  default  options  for  every 
syabolic  parameter  not  referenced  by  the  user  in  his  run. 
See  examples  in  section  2.3. 
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2.2  File  Name  Conventions 

Names  of  data  files  and  file  libraries  oust  begin  with 
an  alphabetic  character  and  contain  only  alphabetic  and 
numeric  characters.  ISAM  data  file  naaes  are  seven 
characters  or  less,  not  ending  in  L,  S,  or  I.  The  SAM  fora 
of  a data  file  is  naaed  by  suffixing  the  ISAM  nane  with  S. 
A file  Index  Data  Set  is  naaed  by  adding  the  suffix  X to  the 
ISAM  naae  fora,  and  a file  library  by  suffixing  the  ISAM 
naae  with  L.  "L,"  "X,"  and  "S"  are  concatenated  to  the  ISAM 
fora  of  the  file  naae  by  the  procedures  to  obtain  the  full 
library.  Index  Data  Set,  and  SAM  file  naae  o«  Thus  TEST360S, 
TEST360X,  and  TEST360L  are  the  names  of  the  SAM  file.  Index 
Data  Set,  and  library  for  the  TFST360  file. 

Qualified  data  set  naaes  are  valid  as  naaes  of  NIPS  data 
files,  libraries  and  index  data  sets.  The  file  naae  used  on 
control  cards  should  appear  as  the  last  segaent  of  a 
qualified  naae.  Thus  JULY. VEPSION3.  TEST 360  would  be  a 
qualified  data  set  naae  for  a version  of  the  TEST360  file. 
Because  of  the  iabedded  special  characters  in  a qualified 
data  set  naae  the  value  aust  be  enclosed  in  apostrophes  when 
referenced  as  a syabolic  parameter  in  a procedure: 

//  EXEC  XRASP,ISAM= • JULY. VERSION 3 . TEST360* 

The  transaction  data  set  dynamically  output  by  the  File 
Analysis  Statistics  capability  expects  the  data  set  to  have 
the  naae  of  the  data  file  concatenated  with  a 'T*  suffix. 
The  presence  of  an  entry  in  the  catalog  for  this  naae  on  the 
saae  volume  as  the  data  file  will  cause  the  transactions  to 
be  generated  and  output. 

2.3  File  Block  Size  Conventions 

All  NIPS  360  FFS  cataloged  procedures,  coaponents  and 
utilities  are  designed  to  either  generate  or  process  default 
block  size  files  or  files  with  a user  specified  block  size. 
The  default  block  size  is  1,004  bytes.  A user  specified 
blocx  size  can  be  1,004  or  greater,  up  to  the  files  storage 
device  liaitation. 
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2.3.1  Default  Pile  Block  Size 

No  action  is  required  on  the  part  of  the  user  to 
qenerate  or  process  standard  block  size  files. 

2.3.2  User  Specified  Pile  Block  Size 

User  block  size  specifications  are  accomplished  by  use 
of  BSZPILE  and  BSZNEWP  symbolic  parameters  in  the  applicable 
cataloged  procedures.  BSZPILE  is  used  to  indicate  the  block 
size  of  an  input  file,  and  it  is  required  only  when  the 
input  file  resides  on  unlabeled  magnetic  tape  and  its  block, 
size  is  greater  than  1,004  bytes.  BSZNENP  is  used  to 
generate  a file  with  a block  size  greater  than  1,004  bytes 
or  to  change  the  block  size  of  an  existing  file.  The  block 
size  of  an  existing  file  can  be  changed  only  when  a new  copy 
is  produced;  you  cannot  change  the  block  size  of  an  ISAN 
file  during  execution  of  XPH  in  the  update  node,  because  it 
is  updated  in  place  and  it  is  still  the  sane  physical  data 
set. 


Once  a user  specified  block  size  has  been  established 
for  a file  and  that  file  resides  on  a direct  access  storage 
device  or  on  labeled  magnetic  tape,  the  user  is  never 
required  to  provide  the  block  size  with  the  BSZPILE  symbolic 
parameter. 


2.4  Example  of  Pile  Name  Conventions  and  Symbolic 
Parameters 

Naming  conventions  and  symbolic  parameters  have  a great 
impact  upon  the  JCL  required  for  running  NIPS  jobs.  The 
amount  of  JCL  the  user  becomes  concerned  with  depends 
principally  on  whether  he  is  using  single  or  multiple  data 
bases  and  single  or  multiple  file  libraries.  A general 
discussion  of  job  setups  under  each  environment  is  included 
in  the  following  subsections.  Although  RASP  is  used  in  the 
examples,  the  same  concepts  apply  when  using  the  other 
procedures. 

2.4.1  Single  Data  Base 

A Portion  the  XRASP  procedure  is  shown  below  to 
illustrate  how  symbolics  and  naming  conventions  help  the 
user  in  setting  up  various  RASP  jobs  for  a single  data  base! 
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//XR ASP 
// 

// 

PROC 

IS AH*' DO  HHY. PI LE' , SAN* • DflHN  Y.  FILE'  . X 

¥ISAH*,0ISAH='  (2314, P)  ',BSZPILE=,  X 

¥SAH*,  0S‘AH= ' (2400,, DEFER)  ' , LAB=SL 

//RASP 

EXEC 

PGH=RSEX  EC 

//DATAFILE 

//SAHFILE 

DD 

DSNANE=6ISAH,  DISP=SHR, 0NIT*B0ISAH , ¥OLOHE=6¥ISAH 
DD  DSN  AH  E=6S A H . S ,DISP=SHR , UNIT* BUSAN,  X 

// 

¥OLOHE=B?S  AN, LABEL* (, BLAB) 

• 

• 

: 


i 


a.  when  the  user  wants  to  run  RASP  against  a cataloged 
ISAM  data  base  naaed  TESTER,  he  writes 

//  EXEC  XRASP,ISA  H=TESTER 

which  causes  OS  to  aount  TESTER  on  a 2314.  Note 
that  the  voluae  paraaeter  for  DATAFILE  defaults  to 
a NOLL  paraaeter. 

b.  To  execute  a RASP  run  against  an  uncataloged  ISAM 
data  base  naaed  TEST360  residing  on  a 2311  labeled 
TSTLAB,  he  would  write 

//  EXEC  XR  ASP, IS  AN*TEST360 ,0IS AH=231 1,VISAH='  SER=TSTLAB' 

c.  Similarly,  to  run  RASP  against  a cataloged  SAN 
version  of  the  TEST360  data  base  naaed  TEST360S 
(note  the  'S'  suffix),  he  would  write 

//  EXEC  XR  AS  P, SAH=TEST  360 

which  causes  OS  to  defer  aounting  the  (first) 
TEST360S  tape  when  the  prograa  calls  for  it. 

d.  To  run  RASP  against  an  uncataloged.  nonlabeled  tape 
data  base  naaed  TRST360S  with  a voluae  serial  of 
HYTAPE  and  a block  size  of  7000  bytes,  he  would 
write 

//  EXEC  XRASP,SAH*?EST360,VSAH*'SER*HYTAPE», 

//  LAB*NL,BSZPILE»7000 
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which  would  cause  OS  to  defer  mounting  the  TEST360S 
tape. 

e.  To  run  RASP  against  either  an  ISAM  or  SAM  data 
base,  cataloged  or  not,  whose  associated  Index  Data 
Set  is  cataloged,  he  would  write 

//  EXEC  XRASP,ISA H=TEST360, IN  DEX=TEST360 

f.  To  run  RASP  against  a data  base  whose  associated 
Index  Data  Set  is  n2t  cataloged,  a user  would  use 
the  following  statements  (assume  the  ISAM  form  of 
the  data  base  is  cataloged) 

//  EXEC  XRASP,ISAM=TEST360, XUNIT=2314, 

//  XVOL*' SEP=ND0026* , INDEX  = TEST  360 

2.4.2  Multiple  Data  Bases 

RASP,  OP,  and  QUIP  are  the  only  FFS  components  that 
support  multiple  data  base  capabilities.  This  is 
accomplished  by  having  multiple  DATAFILx  and  SANFILEx  DD 
cards  in  the  procedures.  Multiple  Index  Data  Sets  are 
provided  by  having  XINDEXx  DD  cards.  Although  up  to  10  data 
bases  could  be  used,  the  following  portion  of  the  XRASF 
procedure  is  shown  to  illustrate  the  concepts  behind  jot 
setups  for  a two-file  environment. 
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//XRASP  PBOC  ISAH=,DUHWT.FILE,#ISAMl=*DUHNT. PILE' , X 

//  SAM=* DONHY.FILE*,  SA N1 =• DUHH Y. PILE • , X 

//  LAB=Sl,VISAM=,  VISAMl- ,UISAM=' (2314,P)  • , X 

//  UISAM1** (2314, P) • , VSAH=,VSAM1»,  X 

//  USAM*'  (2400,, DEFER)  • , OS  AM  1=  *(2400  , , DEFER)  ' , X 

//  JOBLIB=*FFS. JOBLIB* 

//HASP  EXEC  PGM=RSEXEC 

//STEPLIB  DD  DSN=  6JOBLIB, DI SP=SHR 

//DATAFILE  DD  DSN A HE=S IS AH , DISP= SHR, UN IT=6UIS AH , X 

//  V0LUME=6VISAM 

//DAT  AFIL1  DD  DSN  AME=S  IS  AH  1 ,DISP=SHR  , 0NIT=60IS  AMI  , X 

//  V0L0HE=6VISAMl 

//SAMFILE  DD  DSNAME*6SAH. S,DISP*SHP,UNIT=&USAM,  X 

//  VOLUNE=SVSAM,  IABEL=  (,  5L  AB) 

//SAMFIll  DD  DSNAHE=6SANl.S,DISP=SHR,UNI?=SUSAHl  , X 

//  VOLOHE=SVSAMl  , LABEL*  (, BLAB) 


a.  To  run  RASP  against  two  cataloged  ISAM  data  bases 
naned  TRAINER  and  TEST360,  he  writes 

//  EXEC  XRASP,  ISAN*TRAINER,ISA.11=TEST360 

b.  To  run  RASP  against  two  cataloged  SAN  versions  of 
TRAINER  and  TEST 360  naned  TRAINERS  and  TEST360S , he 
writes 

//  EXEC  XP ASP,SAM=TRAINER,SAMl=TEST360 

c.  To  run  RASP  against  a qatalpged  ISAM  data  base 
naned  TRAINER  and  a cataloged  SAN  version  of 
TEST360  naned  TEST 360S , he  writes 

//  EXEC  XRASP, ISA M=TRAINER,SAN*TEST360 

The  single  and  nultiple  data  base  runs  use  the  sane 
procedure,  XRASP;  therefore,  exanples  using  uncataloged  data 
bases  would  follow  the  sane  rules  shown  in  the  discussion 
of  single  data  bases. 
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2.4.3  Pile  Libraries 

It  is  anticipated  that  nany  files  containing  FITs, 
retrievals,  subroutines,  and  tables  will  have  a library 
associated  with  thea.  The  procedure  is  set  up  to  fora  user 
library  naaas  by  suffixing  the  ISAH  data  base  naae  with  an 
•L'.  This  should  be  taken  into  consideration  when 
cataloging  user  libraries.  If  the  IS  AN  syabolic  paraaeter 
specifies  a qualified  data  set  naae,  the  user  library  naae 
will  be  foraed  by  suffixing  an  ' L*  to  only  the  list  segaent 
of  the  DSHAME. 

Private  user  libraries  are  specified  by  using  the  LIB, 
LIB1,  and  LIB2  syabolic  paraaeters.  These  libraries  have  a 
disposition  of  SHF  which  aeans  they  are  read-only.  The  only 
user  library  that  should  be  written  into  is  the  library 
defined  by  the  LIB  syabolic  paraaeter.  Therefore,  to  store 
E££iaaSAi  fills  QL  SSiSlSISlS  on  a Jise£  ll *>£&£!  7~d efJHg't&ii 
UkEiEl  Mith  iil£  LIS  symbolic  EataatlSE#  §Qd  change  £fae 
dis&asiUoA  aasasslsi  La  LIS  SIS? =212- 

Caution  should  be  exercised  in  specifying  aultiple  user 
libraries  in  that  a search  for  inforaation  from  these 
libraries  is  in  a LIB,  LIBl,  LIB2  sequence.  If  a 
subroutine,  for  exaaple,  exists  on  LIB  and  LIB2  under  the 
saae  naae,  the  subroutine  will  always  be  fetched  froa  LIB 
(the  first  library  on  which  it  was  found). 

An  additional  library  naaed  DUHHY . PILEL  is  referenced  in 
the  procedures.  This  can  be  used  by  those  installations 
which  desire  to  aaintain  an  installation  library  of  coaaon 
subroutines  and  tables.  The  naae  of  this  library  aay  be 
changed  if  desired. 

2.S  Catalog  Fequireaents 

Aside  froa  the  usual  catalog  requireaents  for  user's 
data  bases,  job  libraries,  and  file  libraries,  procedures 
iaply  that  the  following  data  sets  aust  be  cataloged  to  run 
PPS  jobs: 

a.  DUMMY. PILE  - This  data  set  aust  be  cataloged  but 
need  not  actually  exist.  It  should  be  assigned  to 
a systea  residence  voluae  to  avoid  taking  up  an 
extra  tape  drive. 
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b.  DUNNT.PILEL  - This  data  set  aust  be  cataloged  and 
physically  exist  as  a partitioned  data  set,  usually 
put  on  the  saae  pack  as  FFS.JOBLIB. 

c.  DOUBT. FILES  - This  data  set  aust  be  cataloged  but 
need  not  actually  exist. 

d.  DOUBT. FILET  - This  data  set  aust  be  cataloged  but 
need  not  actually  exist. 

Caution  should  be  observed  when  file  libraries.  Index 
Data  sets,  and  SAN  files  are  cataloged  since  the  procedure 
suffixes  an  'X',  'S'  or  'L*  on  the  ISAM  data  base  naae  to 

fora  the  final  naae. 

2.6  Checkpoint/Restart 

The  checkpoint/restart  capability  installed  in  FN,  RASP, 
and  OP  is  designed  to  serve  as  an  aid  in  efficient  use  of 
the  efficient  coaputer  in  that  processing  functions  already 
coapleted  need  not  be  duplicated  if  an  incoaplete  job  is 
returned  to  the  user. 

FH,  RASP,  and  OP  allow  the  user  the  option  to 
periodically  take  checkpoints  (tine  or  end-of -voluae)  as  the 
job  progresses.  A detailed  description  of  the  OS  360 
checkpoint/restart  capability  (which  is  utilized  in  NIPS)  is 
available  to  the  interested  user  in  IBB  Systeas  Reference 
Library,  Nuaber  C28-6708.  Checkpoints  are  taken  in  the 
execution  phases  only,  not  during  edit  code  generation, 
library  action,  etc. 

The  execute-only  procedures  (XPNEX,  XPASPEX,  XOPEX,  and 
XOPSDEX)  are  the  only  ones  designed  for  use  with  the 
checkpoint  capability. 

The  coding  of  the  following  keyword  values  on  the  EXEC 
card  will  initiate  the  checkpoint/restart  capability: 

CHKID  A user-assigned  naae  up  to  seven  charac- 

ters long  which  is  used  to  assign  DSNABEs 
to 
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all  noraally  temporary  data  sets  (the 
procedure  will  concatenate  suffixes  to 
■ake  the  nanes  unique)  and  the  checkpoint 
data  set  defined  on  the  CHECKDD  DD  card. 

EOV  • 

PARM='CHKPT=  The  value  EOV  or  a tiae  interval 

aa  in  ainutes  (aa)  to  designate  the 

type  of  checkpoint  desired. 

CHKDSP  The  conditional  disposition  for  the  work 

data  sets  and  the  CHECKDD  data  set  to  be 
used  in  case  of  an  ABEND.  The  value  in 
the  procedures  is  ‘DELETE*;  the  user 
should  override  it  to  ‘KEEP*. 

NRHDSP  The  noraal  disposition  for  the  work  data 

sets  and  the  CHECKDD  data  set  to  be  used 
for  a noraal  run  (one  which  does  not 
ABEND) . The  value  in  the  procedures  is 
'DELETE*;  the  user  should  override  this 
paraaeter  only  if  he  needs  to  keep  his 
teaporary  data  sets  froa  a successful 
run. 

CHKSP  The  space  required  for  the  checkpoint 

data  set  in  cylinders.  Approxiaately  one 
cylinder  per  checkpoint  is  required  for 
a 100K  job.  This  substitution  is 
aandatory  for  a new  data  set. 

VCHK  The  voluae  onto  which  the  checkpoint  data 

set  is  to  be  allocated. 

UCHK  The  unit  onto  which  the  checkpoint  data 

set  is  to  be  allocated. 

Note:  VCHK  defaults  to  a null  value  and  UCHK 

defaults  to  NIPN.  The  above  default  values 
will  cause  one  of  the  work  packs  to  be  used 
for  the  checkpoint  data  set,  but  it  will  be 
difficult  to  ascertain  the  voluse  serial 
nusber  of  the  work  pack  used  if  a systea  error 
produces  no  listing.  To  avoid  the  probles, 
one  should  provide  values  for  UCHK  and  VCHK  to 
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reference  a known  volume.  Example:  UCHK=2314, 
VCRK=' SER=ND000*. 

For  recurring  jobs  using  checkpoint/restart,  a 
previously  allocated  data  set  for  the  CHECKDD  DD  card  will 
save  tiae. 

2.6.1  Checklist  for  Using  Checkpcint/Restart 

After  the  user  establishes  the  need  for 
checkpoint/restart  insurance,  the  following  list  may  serve 
as  a guide  to  assist  hia  in  setting  up  the  deck  correctly: 

a.  All  routines  to  be  used  (logic  statenents,  queries, 
RITs)  should  be  prestored. 

b.  Invoke  the  appropriate  procedure  and  provide  the 
CHKID,  CHKPT,  CHKDSP,  CHKSP,  VCHK,  and  UCHK 
substitutions. 

c.  If  a restart  is  necessary,  the  changes' required  are 
the  inclusion  in  the  run  deck  of  a SYSCHK  DD  card 
immediately  preceding  the  first  execute  card  and 
the  coding  of  a RESTART  parameter  on  the  JOB  card. 

d.  The  deferred  restart  be  done  prior  to  the 

scratching  of  the  work  packs.  This  requires  that 
the  analyst  in  charge  of  the  critical  job  be 
available  to  resubnit  the  job  within  sone 

reasonable  tine  period  after  the  job  was  originally 
run  unsuccessfully. 

2.6.2  Sanple  Job  Setup 

The  following  example  shows  initial  and  restart 
submissions  of  an  PH  S AH  update  run  using  the  TESTER  file 
and  a multireel  tape  transaction  file. 

Only  the  front  end  of  the  deck  is  shown  since  the  only 
changes  to  be  made  for  restart  are  in  the  JCL.  The  end-of- 
voluae  checkpoint  option  is  used. 

The  JOB  card  on  the  restart  deck  shows  the  RESTART 
parameter.  The  'A. PH*  represents  the  mandatory  stepname  on 
the  EXEC  card  of  the  step  to  be  restarted  and  the  stepname 
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in  the  XPHEX  procedure.  The  #C0000002#  represents  the 
nunber  of  the  checkpoint  (obtained  froa  the  console  listing) 
to  be  used  Cor  the  restart! 


lUIIIAL-SUBHISSigN 

//JOBNAHE  JOB  (noraal  job  card  paraaeters) 

//A  EXEC  XFHEX,CHKID= REQUEST, PARH* ' CHKPT  = EOY' , 

//  CHKDSP*KEEP,CHKSP=5,UCHK=2314, 

//  ¥CHK*'SER*NDOOOO«  , S AH *TESTER, S ABOUT  = , 

//  ?SAH*'SER*INPOT,#  ¥SHOUT=*  SE  R= OUTPUT • < 


SS5IAEI_SOB(iission 

//JOB  JOB  (noraal  job  card  paraaeters)  RESTART* (A. FH,C0000002) 
//SYSCHK  DD  DSNAHE*REQnEST,DISP*(OLD,  KEEP, KEEP)  , 

//  ¥OLUHE*SER*ND0000,UNIT=2314 

//A  EXEC  XFHEX,CH KID* RE QUEST, PARH*' CHKPT*EO¥ • , 

//  CHKDSP*KEEP,CHKSP=5,UCHK*231 4, 

//  ¥CHK*' SER=ND0000 • , S AH* TESTER  ,S ABOUT* , 

//  YSAH*'  SER*INPUT' ,¥SHOUT*' SER=OUTPUT' 

In  the  following  exaaple,  the  OP  step  theoretically 
abended  with  an  SB37  ABEND  after  the  eighth  checkpoint  had 
been  taken.  Hhen  the  deferred  restart  is  atteapted,  the 
batch  aix  of  jobs  will  hopefully  use  less  disk  space.  The 
restart  procedure  is  the  saae  as  in  the  first  exanple. 


IN  III iL-SPB MISSION 

//JOBNAHE  JOB  (noraal  job  card  paraaeters) 

//AB  EXEC  XRASPEX, ISA H* TESTER ,QDF*QDFILE, 

//  QRT-QRTFI1E, UQDF*2314, ¥QDF*'SER*ND0000' , 

//  ¥QRT* ' SER*ND0000* ,CHKID*RASP, PARK*' CHKPT*15* , 

//  C HKDS P* KEEP, LI B*TESTER,QDISP*KEEP 

//AC  EXEC  XOPEX ,QDF*QDFILE, LIB* TESTER, 

//  QRT*QRTFILE, UQDF*2314,¥QDF' SER*NDOOOO' , 

//  YQRT* ' SER*ND0000' ,CHKID*OP, PARR*' CHKP?*10 • , 

//  CHK DSP* KEEP, QDISP*KEEP,UCHK*2314, 

//  YCHK* ' SER*ND0000' 
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miAEi-sasaissiog. 

//JOBNAHE  JOB  (noraal  job  card  parameters)  FES?AFT= (AC.OP,C0000008) 
//SYSCHK  DD  DS«AHE=OP,DISP*(OLD, KEEP,  KEEP), 

//  VOLUHE*SER*ND0000,UNIT~2314 

//AB  EXEC  XRASPEX, I SAM* TESTER , QDP*QDFILE, 

//  QBT=QHTFILE,UQDF*2314, VQDP=*  SER=ND0000'  , 

//  »QRT*,SER*ND0000,,CHKID=PASP,PAFH*,CHKPT*15', 

//  CHKDSP=KEEP, LIB* TESTER, QDISP=KEEP 

//AC  EXEC  XOP,QDF=QDFILE,LIB=TESTEF, 

//  QRT*QRTFILE,UQDF*2314, VQDF*SER=ND0000', 

//  VQRT* ' S EP*ND0000 • , CHKI D=OP, P ARM*  • CHFPT*10 , ' 

//  CHKDSP*  KEEP,QDISP*KEEP , UCHK=23  14  , 

//  VCHK*1 SEB=ND0000* 

2.7  Segmented  Files 

The  FN  coaponent  has  the  capability  to  generate  and 
aaintain  segaented  data  files.  This  capability  allows  the 
user  to  segaent  his  large  chronological  SAN  file  into 

segaents  which  aay  be  updated  individually,  thereby  reducing 
processing  tine.  Each  segaent,  when  generated,  will  contain 
records  with  record  keys  within  a specified  range. 

The  OP,  RASP,  and  QUIP  coaponents  can  retrieve  and 
output  froa  the  segaents  singly  or  as  a group  Baking  up  one 
coaplete  data  file.  No  additional  paraaeters  are  needed  to 
process  one  segaent.  However,  if  aore  than  one  segaent  is 
to  be  processed,  the  OS  S/360  concatenation  capability  aust 
be  used  (see  S/360  SPL  C28-6539) . Examples  of  this 

capability  will  be  included  in  the  Saaple  Job  Setups  for  FH, 

BASP,  OP,  and  QUIP. 

2.8  Source  Languaqe  Storage 

All  NIPS  batch  coaponents  procedures  which  perfora 
language  compilation  or  structuring  will  also  allow  source 
decks  to  be  added,  replaced,  or  deleted  froa  a source 

library.  The  FS,  FN,  RASP,  OP,  and  QUIP  procedures  contain 
a SOUBCLIB  DD  stateaent  which  is  used  to  define  the  source 
library.  when  a DSNAHE  other  than  (DUnnr.FILE'  is  provided 
and  source  control  stateaents  are  included  in  the  input 

streaa,  source  library  aaintenance  will  be  perforaed. 
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Section  3 

COMPONENT  PROCEDURE  DESCRIPTIONS 


This  section  examines  each  procedure,  pointing  out 
specific  ways  of  setting  up  jobs  f&r  each  component. 

The  sample  jobs  will  omit  the  JOB  card  which  is  always 
required  and  standard  for  each  installation. 

Note:  In  all  JCL  examples,  the  'X*  signifying  a 
continuation  card  is  usually  punched  in  card  column  72,  even 
though  it  is  no  longer  required  by  the  Operating  System. 

3. 1 FM  Procedure  (XPH) 

The  .procedure  XPH  is  used  to  accomplish  all  PH 
functions.  The  file  name  must  be  specified  using  the  ISAM 
or  SAM  symbolic  parameter.  If  an  ISAM  file  is  being 
generated,  INDEX,  PRIME,  and  OVFLOi  should  be  used  to 
specify  the  amount  of  dish  space  (in  cylinders)  required  for 
each  of  these  areas.  If  an  assembler  listing  of  logic 
statements  being  compiled  is  desired,  code  PARM=DEBOG  or 
PARM=LIST  on  the  EXEC  card. 

When  adding  new  DD  cards  to  the  run  that  do  not  appear 
in  the  cataloged  procedure,  the  DD  card(s)  should  be  placed 
immediately  before  the  STSIN  DD  card.  If  the  POOL  APR 
capability  is  used,  the  DD  name  referenced  in  the  APR 
operator  forms  the  DD  name  for  a new  JCL  card  by  affixing  it 
to  the  characters  *PM.*  Hence,  if  APR  referenced  the  DD 
name  • A PRDD 1 * , the  user  supplied  JCL  card  for  the  PH  run 
would  have  a DD  name  of  ' PM . AFRDD 1 * . 

If  a file  is  being  generated  and  the  output  file  block 
size  is  to  be  different  than  the  input  PFT  block  size,  use 
symbolic  parameter  BSZNEWP  to  specify  the  output  block  size. 

If  a SAM  file  is  being  updated  and  the  output  file  block 
size  is  to  be  changed,  use  BSZNEWP  to  specify  the  new  block 
size. 
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If  the  input  is  a SAN  file  on  unlabeled  iiagnetic  tape 
and  the  file  block  size  is  not  1,004,  use  symbolic  parameter 
BSZFILE  to  indicate  the  input  file's  block  size. 

In  soiae  cases,  the  user  nay  need  to  provide  JCL 
information  that  is  not  included  in  the  procedure. 

Overriding  OD  cards  must  have  a DD  statement  name  which 
includes  the  stepname  (PH)  and  the  name  of  the  DD  statement 
to  which  the  override  applies.  All  override  DD  cards  must 
be  placed  in  the  order  that  they  appear  in  the  procedure. 

If  the  transaction  source  is  a single  tape  or  disk  file,  \ 

the  user  must  include  an  override  DD  statement  named 
PH. TRANS  which  specifies  the  DSNAHE,  DISP,  UNIT,  and  VOLUNE 
parameters  plus  the  DCB  parameters  if  the  transaction  file 
is  an  unlabeled  tape.  When  multiple  transaction  sources  are 
to  be  used  in  an  PH  execution,  the  user  must  provide  a DD 
statement  for  each  source.  The  DD  statement  must  be  named 
PSTRANxx  for  sequential  tape  or  disk  transactions  and 

ISTRANxx  for  ISA N NIPS  files.  The  XX  may  be  a unique  user  • , 

specified  ID  for  each  DD  statement.  Parameters  to  be 
specified  in  each  of  the  added  transaction  DD  statements  are 
the  sane  as  those  required  in  the  PH. TRANS  DD  statement. 

The  PH. TRANS  override  DD  must  not  be  used  when  utilizing  the 
multiple  transaction  source  capability  as  it  is  used  for 
describing  single  source  transactions. 

< 

The  following  DD  statements  would  be  required  only  if 
the  user  is  producing  auxiliary  output  files  by  using  the 
MET , HT2 , NT3 , WT4  or  HT5  instructions  in  his  logic  statement. 

These  statements  must  include  the  DSNAHE  parameter  and 
should  include  UNIT,  VOLUNE  and  DISP  parameters.  If  the 
user  specifies  a direct  access  device  for  output,  he  must 
also  include  a space  parameter.  DCB  parameters  should  be 
specified  if  other  than  standard  parameters  are  desired. 

A DD  statement  named  PH.AUX1,  is  used  to  identify  the 
name  given  to  the  first  auxiliary  output  file.  This  file  is 
produced  by  the  POOL  instruction  WRT. 

A DD  statement,  PN.AUX2,  is  used  to  identify  the  name 
given  to  the  second  auxiliary  output  file.  This  file  is 
produced  by  the  POOL  instruction  WT2. 
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A DD  statement,  FH.AUX3,  is  used  to  identify  the  nane 
given  to  the  third  auxiliary  output  file.  This  file  is 
produced  by  the  POOL  instruction  HT3. 

A DD  stateaent,  FH.AUX4,  is  used  to  identify  the  naae 
given  to  the  fourth  auxiliary  output  file.  This  file  is 
produced  by  the  POOL  instruction  MT4, 

A DD  stateaent  FH.ATJX5,  is  used  to  identify  the  naae 
given  to  the  fifth  auxiliary  output  file.  This  file  is 
produced  by  the  POOL  instruction  WT5. 

A DD  stateaent  aust  always  be  used  to  identify  the 
user's  input  deck.  The  foraat  of  this  card  is  (//FM.SYSIN 
DD  *) . This  is  followed  by  the  user's  input  deck,  followed 
by  a /*  card  to  indicate  the  end  of  the  input  deck. 

The  Pfl  coaponent  is  designed  to  use  a disk  sort  provided 
enough  disk  sort  work  space  (DD  cards  SOPTWK01-06)  is 
available.  The  PH  coaponent  required  this  space  to  sort  the 
transactions  prior  to  their  being  added  to  the  data  file. 

As  these  transactions  are  processed  by  FH  prior  to  sorting, 

FM  calculates  the  aaount  of  disk  space  required  for  the 
sort,  and  if  this  space  is  not  available  it  will  default  to 
a tape  sort.  Hhen  this  occurs  the  following  DD  cards  aust 
be  added  to  the  standard  procedure; 

//TAPEHK01  DD  paraaeters  defining  a 9-track  tape  unit. 

//TAPENK02  DD  paraaeters  defining  a 9-track  tape  unit. 

//TAPEMK03  DD  paraaeters  defining  a 9-track  tape  unit. 

//TAPEMK04  DD  paraaeters  defining  a 9-track  tape  unit. 

In  addition,  if  the  nuaber  of  transactions  necessitates 
that  SDRTIN  and  SORTOUT  will  contain  aore  than  one  tape 
voluae,  the  following  JCL  changes  are  needed.  Otherwise, 
only  the  transactions  on  the  last  voluae  specified  on  your 
TOLUHE  paraaeter  will  be  used  to  update  the  file. 

//FH. SORT IN  DD  UNIT* (2400, , DEFER) ,VOL*SER* ( ,....) 

//FH. SORTOUT  DD  UNIT=APF=SORTIN, VOL*SER* (soae  tapes  as  SOPTIN) 

Tha  above  DD  cards  are  not  distributed  with  the  standard 
procedure.  The  space  defined  for  the  disk  sort  work  area  is 
adequate  for  aost  applications. 


16 


JOB  PREPARATION 


when  generating  an  ISAM  file,  space  allocation  in  tens 
of  INDEX,  PRIME,  and  OVPLOW  areas  aust  be  specified  for  the 
new  file.  This  is  done  utilizing  the  INDEX,  PRIME,  and 
OVPLOW  syabolic  paraaeters.  These  paraaeters  default  to  1, 
5,  and  1 cylinders  respectively.  For  exaaple,  if  1 cylinder 
of  index,  20  cylinders  of  priae  area  and  5 cylinders  of 
independent  overflow  area  are  desired  when  generating  the 
TEST360  file,  the  following  EXEC  card  would  be  coded: 

//FMGEN  EXEC  XPN,GEN=, ISA H=TEST360 ,PRIHE=20, OVFLOW=5 

The  XPM  procedure  will  also  aaintain  SAN  data  files. 
The  use  of  the  SAM  or  ISAM  paraaeter  specifies  the  type  of 
input  file  to  Pile  Maintenance.  The  type  of  file  aust 
always  agree  with  that  specified  on  the  PH  control  card, 
with  one  exception.  A SAM  file  fee  generated  froa  an 
ISAM  PPT.  Por  this  one  exception,  the  ISAM  syabolic 
paraaeter  would  be  used  to  specify  the  input  PPT  and  the  PH 
control  card  would  specify  'TAPE*. 

When  updating  a SAM  file,  the  updated  file  will  noraally 
be  written  on  the  data  set  (tape)  specified  by  the  PHSAMOUT 
DD  stateaent.  However,  if  any  record  controls  are  being 
changed  by  use  of  the  HCT  or  HCW  POOL  instructions,  the 
updated  file  will  be  written  on  the  data  set  (tape) 
specified  by  the  FHNDATA  DD  stateaent.  These  data  sets  are 
noraally  written  on  a 9-track  tape.  A aessage  is  written  on 
the  console  stating  the  file  naae  and  which  tape  is  to  be 
saved  at  the  coapletion  of  FM. 

The  XPM  procedure  is  generalized  since  it  has  a variety 
of  applications:  SAM  or  ISAM  data  files  in  either  the 
generate  or  update  node.  To  avoid  possible  run  terainations 
due  to  insufficient  space  for  the  NEWFILE  DD  stateaent, 
special  provisions  have  been  aade  to  DOME T this  stateaent  in 
the  XPM  procedure.  Also,  this  stateaent  aust  be  DUMMY  when 
updating  a aultivoluae  ISAN  data  file.  No  space  will  be 
allocated  for  this  stateaent  unless  GEN-  is  coded  on  the 
EXEC  card.  Coding  of  GEN=  on  the  EXEC  card  is  applicable 
for  an  ISAM  generate  run  only.  Special  consideration  has 
been  directed  to  the  PHSAMOUT  and  FHNDATA  DD  stateaents. 
These  DD  stateaents  have  been  put  to  DUMMY.  They  should 
reaain  in  the  DUMMY  stavus  for  all  ISAM  runs.  For  all  SAM 
runs,  the  user  aust  code  SAHOUT*  on  the  execute  card  to 
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allot#  allocation  of  the  FHSAHOUT  and  FHNDATA  data  sets 
(tapes)  . 

During  COM  and  LIB  node  runs,  if  the  FFT  and  logic 
statements  are  on  a seguential  file,  no  library  action  will 
be  performed.  However,  the  JCWH  procedure  nay  be  used  for 
debugging  a logic  statement.  If  the  FFT  is  on  an  indexed 
seguential  file,  library  action  may  be  performed  and  logic 
statements  may  be  added  to  the  library. 

In  PH  the  default  for  the  processing  block  size  is 
16,000  bytes.  The  user  may  override  this  size  by  using  the 
PABM='PBSIZE=nK'  or  PAPM=*PB=nK'  parameter  on  the  EXEC  card, 
where  n may  be  any  integer  from  1 to  99  inclusive. 

3.1.1  Sample  Job  Setup 

The  following  examples  generally  use  the  ISAM  symbolic 
parameters.  Except  where  noted,  these  same  examples  can  be 
used  for  SAM  files  by  using  the  SAM,  VSAH  and  USAM 
parameters  in  place  of  the  respective  ISAM  parameters.  The 
FM  control  card  must  also  be  changed  to  TAPE  instead  of  DISK 
file  update.  For  SAM  files,  SAHOUT=  must  be  coded  on  the 
EXEC  card. 

a.  CQmpllq  Lggic  St^tegepts  Only  ~ The  following  FM 
run  deck  would  be  used  to  compile  logic  statements 
for  the  TEST360  file.  The  purpose  of  this  run  is 
to  produce  listings  of  the  logic  statement  source 
cards  for  use  in  debugging  new  logic  statements. 
This  type  of  run  would  be  used  as  the  first  step  in 
setting  up  a new  file.  The  file  is  not  cataloged 
but  resides  on  a 2314  disk  pack. 

A typical  run  deck  follows: 

//  EXEC  XFM,ISAM=TEST360,VISAHss,SEF=MYPACK' 

//FM . S YS IN  DD  * 

$FMS/COH,TEST360 


LOGIC  STATEMENT  LIBRARY  UPDATE  DECK 


JOB  PREPARATION 


b.  gtateaent  Library  - The  following  run 

deck”  could  be  used  to  update  the  Logic  Stateaent 
Library  for  the  TEST360  file  which  is  cataloged. 


//  EXEC  XPH,ISAH=TEST360 

//Ptl.  SYSIN  DD  * 

$FHS/LIB, TEST  360 

! LOGIC  STATEHENT  LIBRARY  UPDATE 
/* 


If  the  file  is  a SAH  file,  logic  statements  can 
only  be  added  during  a GEN  or  UPD  run. 

c.  Update  a File (Card  transactions)  - The  following 

deck  could  be  used  to  update  the  TEST360  file  using 
card  transactions.  '’’he  first  transaction  report 
name  is  ONE.  The  second  report  naae  is  TWO.  The 
user's  subroutine  library  is  named  TEST360L  and  is 
cataloged.  The  processing  block  size  will  be 
increased  from  16,000  bytes  to  20,000  bytes. 

//  EXEC  XFM, IS AM-TEST360,LIB=TEST360, 

//  PARM='PBSIZE=20K' 

//FH. SYSIN  DD  * 

$PNS/UPD, TEST 360, ONE 

! TRANSACTIONS  FROM  REPORT  ONE 

. NEW  REPORT  TWO 

. TRANSACTIONS  PROM  REPORT  TWO 
• 

/* 


d. 


UE4ais_a_Zil2_llaE«_l£an3actioasL  . The  following 
deck  could  be  used  to  update  the  TEST360  file  with 
tape  transactions.  The  transaction  report  name  is 
XYZ.  The  transaction  file  label  is  TAPXACT  and  it 
resides  on  tape  with  the  volume  label  1234.  The 
installation  has  2400  tape  drives,  and  the 
transaction  tape  has  standard  labels. 
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//  EXEC  XPH, I SAH=TEST  360 , LI B= TEST  360 

//FM. TRANS  DD  DS  NAHE=T  APX ACT, 0 NIT* 24 00 , X 

//  VOLOHE*SER=1234,DISP=OLD 

//FN.SYSIN  DD  * 

$FHS/UPD,TEST360,XYZ,,DISK, TAPE 
/* 

e . co  ■ p i is__Lflai£_-Staisisfiia« JiE<lat£^_a.__zUs l 2a2§ 

Tr a nsactions)  , Pr<?duge Two Taps Auxiliary 

Outputs  - The  following  run  deck  could  be  used  to 
coapile  logic  statements  and  update  the  file 
TEST360  with  a tape  transaction  file  labeled  TAPEX. 
The  transaction  tape  volume  label  is  2345.  The 
transaction  report  name  is  ABC;  2400  series  tape 
drives  are  available  for  mounting  tapes.  Two 
auxiliary  output  tapes  are  produced,  named  AUDITA 
and  AODITB.  These  are  to  be  produced  on  tapes  with 
serial  nuabers  TAPEA  and  TAPEB. 


//  EXEC  XPH, ISAN*TEST360,LIB=TES?360  j 

//FN. TRANS  DD  DSNAHE*TAPEX,ONIT=2400,  X 

//  YOLUNE=SER=2345,PISP*OLD 

//PH.AUX1  DD  DSNAHE*AUDITA,ONIT*2400,  X 

//  VOLtJNE*SER=TAPEA,DISP*(,KEFP) 

//PH.AUX2  DD  DSNAHE=ADDITB,ONIT*2400#  X 

//  VOL0NE*SER*TAPEB,DISP*(,KEEP) 

//FN.SYSIN  DD  * 

IFMS/UPD, TEST  360, A BC,LS, DISK, TAPE 


LOGIC  STATEMENT  LIBRARY  DPDATE  DECK 


/* 

t.  coapile  Slaitieiii &a£__S£iieia£2 a Eils 

tCarfl  Transactions!  - The  following  run  deck  could 
be  used  to  coapile  logic  statements  for  a TEST360 
file  and  to  generate  the  TE ST 3 60  file  using  card 
transactions.  The  transaction  report  naaes  are  A 
and  B.  The  users  subroutine  library  is  naaed 
TEST360L.  The  index,  prime  and  overflow  areas  for 
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//  EXEC  XPB,ISAH*TPST360,LIB*TEST360,  X 

//  PRIHE=25,OVFLCN»10, GEN=,INDEX*1 

//FH.SYSIN  DD  * 

SFHS/GEN ,TEST360, , LS, DISK 

. LOGIC  STATEHENT  LIBRARY  UPDATE  DECK 
• 

. NEW  REPORT  A 
. REPORT  A TRANSACTIONS 
. NEW  REPORT  B 
. REPORT  B TRANSACTIONS 

/* 


If  a SAB  file  were  being  generated,  the  PRIBE,  INDEX  and 
OVFLOU  paraaeters  would  not  be  used. 

9*  £fifi£iai£_&H_I£M_Zil£_iCa£i_XLMsa£tiansL_ygil!3_the 
EEl_An4_Itaai£_stat5i«at_libL§.tY_2i_AaS'ikeL_File  - 
The  following  run  deck  could  be  used  to  generate  a 
file  hawing  the  sane  EFT  and  Logic  Statement 
Library  as  an  existing  file.  (The  data  base  of  the 
new  file  aust  still  be  supplied  via  transaction 
inputs.)  It  is  assuaed  that  the  input  data  file, 
TEST360,  is  cataloged  and  that  the  reguired  logic 
stateaents  have  been  added  to  the  Logic  Stateaent 
Library.  The  new  file  will  be  naaed  BYFILE,  and 
will  be  generated  with  card  transactions.  At  the 
end  of  the  FB  run,  both  TEST360  and  HYFILE  will  be 
cataloged  data  sets.  The  transaction  report  naae 
is  REPORT.  The  user's  subroutine  library  is  naaed 
SOBSL  and  is  cataloged. 

//  EXEC  XFH,TSAH*TEST3  60, LIB*SUBS,GBN= 

//FH.SYSIN  DD  * 

SFBS/GEN, HYFILE, REPORT 


TRANSACTIONS  FOR  REPORT 


JOB  PREPARATION 


h.  Generate  a 5AH  Pile  (ISAM  fpt^  - Por  gen  mode 
sequential  processing,  the  input  file  containing 
the  PFT  (and  logic  statements,  if  desired)  may  be 
either  a sequential  or  an  indexed  sequential  file. 
The  following  is  an  example  of  using  card 
transactions  to  generate  a SAM  file  from  an  ISAM 
file  consisting  of  PFT  and  logic  statements.  The 
TEST360  file  is  cataloged.  The  sequential  data 
file  will  be  cataloged  at  the  end  of  the  processing 
with  the  name  specified  on  the  PHS  control  card 
padded  with  a suffix  character  of  'S*. 

//  EXEC  XFN, ISAM* TEST 360,  S AMO  O'** 

// FN.SYSIN  DD  * 

$FHS/GEN,TEST360,RPT, , TAPE, CARD 
• • 

• • 

. TRANSACTIONS  FOR  REPORT  RPT 
• • 

/* 

Note  that  GEN*  is  not  coded  on  the  EXFC  card  for  a 
SAH  generate  run.  It  only  applies  to  an  ISAM 
generate  run.  Note  also  that  SANOUT*  must  be  coded 
on  the  EXEC  card  for  any  ?M  run  that  produces  a SAM 
output  file.  The  Indexed  sequential  data  file  will 
be  cataloged  at  the  end  of  the  processing.  If  a 
qualified  data  set  name  was  used,  and  the  last 
segment  of  the  name  matches  the  name  on  the  FMS 
control  card,  the  fully  qualified  name  will  be  used 
as  the  catalog  entry. 

i*  Jl2i4lS.l_SAa_filft_and_iii_L2akc_Statefieats  - For 
UPD  mode  sequential  processing,  the  input  file  must 
be  a sequential  file  and  SAMOUT*  must  be  coded  on 
the  EXEC  card. 
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//  EXEC  XFH,SAM=TEST360,SANOUT= 
//FM.SYSIN  DD  * 

JFMS/UPD, TEST  360 ,RPT,LSrTAPE,CARD 
• • 

. LOGIC  STATEMENTS 
. TRANSACTIONS  FOR  REPOPT  RPT 


/* 

Note:  Although  the  sequential  file  is  cataloged 
with  a suffix  character  'S',  it  should  be  specified 
without  the  suffix  on  the  PMS  control  card  and  the 
execute  card. 

j.  Genqrflt?  3 First  Sequent  prom  an  FFT  - The  follow- 
ing JCL  and  input  control  cards  would  be  used  to 
generate  an  initial  segment  from  an  ISAM  file  con- 
sisting of  FFT  and  logic  statements. 

//  EXEC  XFM,ISAM=TEST360,SAHOUT=, 

//  LAB=SL 

//FN.SYSIN  DD  * 

$FHS/GEN,TEST360,RPT, , TAPE, CARD, S EG 
SSEG  M00001  M00999 

• • 

• • 

. CARD  TRANSACTION  FOR  REPORT  RPT 


/* 

A.  £Lsasm£_i_£Sa*§n!L_l£2®_Aa2tii£L.Sea{|eat  - The  fol- 
lowing JCL  and  input  control  cards  would  be  used  to 
generate  a segment.  (The  first  segment  was  created 
using  the  JCL  and  control  cards  in  sample  j above.) 


JOB  PREPARATION 


//  EXEC  XFH,SAN=TSST360, SAHOUT=, 
//  LAB=SL 

//FH.SYSIN  DD  * 

SFNS/GEN  , TEST  360  ,RPT,,T  APE,  CARD 
$SEG  N00001  N00999 


CARD  TRANSACTIONS  FOR  R*POPT  RPT 


/* 

l-  Q.ane]Lai£_a_New_Seg[«ent_F£oB_a_SpcLBerit  and  Add  a jigw 
iaa«SQt_Heco£d  - The  following  JCL  and  input 
control  cards  would  be  used  to  generate  a new 
segment  from  an  existing  segment  and  add  new 
segment  control  records. 

//  EXEC  SAN=TEST360,SAHOUT=,LAB=SL 
//FN.SYSIN  DD 

IFHS/GEN,TEST360, RPT,, TAPE, CARD 
1ADD  J00001  J00999  N3609B 

IS EG  W 00001  W00999 


CARD  TRANSACTIONS 


/* 


Note:  After  generation  of  a segment  using  the  FFT 
and  logic  statements  from  the  previous  segment,  the 
new  segment  will  contain  the  FFT  and  logic  state- 
ments and  old  segment  control  records  from  the 
previous  segments.  a new  segment  control  record 
for  the  new  segment  and  the  new  data  records 
generated  by  the  transactions  will  also  be  on  the 
new  segment. 
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a.  updating  a Segment  wjth_ite_£eflgeRt_gEacgssitflg  - 

The  following  JCL  and  input  control  cards  would  be 
used  to  update  a segaent  with  no  segnent  proc- 
essing. 

//  EXEC  XFH,SAN=TEST360,SAHOOT=,LAB*SL 

//FH.SXSIN  DD  * 

$FHS/UPD,TEST360.RPT,,  TAPE,  CARD,  NOS  EG 
• • 

CARD  TRANSACTIONS 


/* 

Note:  When  updating  a segaent  with  no  segaent 
processing  to  be  performed,  the  wolune  serial 
nuaber  field  in  the  segment  control  record  will  be 
updated  by  the  system. 

n.  Generating  a Segment  »sing_att_XSAg_FFT_to  _ Maintain 
-Segnggt  Information  - The  following  JCL  and  input 
control  cards  would  be  used  to  generate  a segment 
using  an  ISAM  FFT  and  maintaining  segment 

information  and  logic  statements  on  the  ISAM  file. 

//  EXEC  XFM, ISAH=ISAHFFT, VISAH=» SER=XXXXXX« 

//  SAHO  0T=, LA  BEL=SL 

//FN.SYSIN  DD  * 

SPNS/GEN,TEST360,RPT,LS, TAPE, CARD, SEG 

e 

LOGIC  STATEMENT 
STOP 

CARD  TRANSACTION 

/♦ 

After  completion  of  the  JOB,  ISANFFT  will  contain 
the  new  segnent  record,  any  old  segnent  records, 
and  the  new  loqic  statement. 

Segment  Information  - The  following  JCL  and  input 
control  cards  would  be  used  to  update  a segnent 
using  the  ISAH  FFT  to  maintain  segment  information. 


JOB  PREPARATION 


//  EXEC  XFH, SAM=TEST360, VSAH=SER=XXXXXX, 

//  S ABOUT  = , L ABEL=  ST, 

//FM.  IS  AtlNORK  DD  DSN AHE= IS ANHOR K , UNIT=2 3 1 4 , VOL=SER= XXXXXX , 

DISP=OLD 

//FH.SXSIN  DD  * 

JFHS/UPD,TEST360,RPT,, TAPE, CARD 


CARD  TRANSACTIONS 


/* 

p.  Updating  _an  ISAM  ?\\e  with  Transactions  from 

r.fluitjple  Sources  - The  following  JCL  and  input 
control  cards  would  be  used  to  update  a file  from 
four  transaction  sources  of  varying  data  attributes 
in  a single  execution.  Particular  attention  should 
be  paid  to  the  added  DD  cards  and  the  parameters  of 
the  $FMS  control  card.  Note:  CARD  must  be 
specified  as  transaction  source  for  multiple 
transaction  source  capability. 

//  EXEC  XFH, ISAH=TEST 360, VI SAM=S5R= XXXXXX , LIB=TEST360 


//PSTRAN1  DD  DSN=LTRANS,UNIT= (2U00, , DEFER) ,VOL=SER= A AAAA A, 

//  DISP=  (OLD,  KEEP)  , 

//  DCB=  (RECFM=FB,  LPECL=480,  BLKSIZE=2400) 

//PSTRAN2  DD  DSN=ATRANS ,UNT?=AFF-PSTP AN1 ,VOL=SEP=BBBBBB,  X 

//  DISP=  (OLD, KEEP) , X 

//  DC  B=  (RECFM=F, LRECL=80, BLKSIZE=80) 

//PSTRAN3  DD  DSN=PT  R A NS ,U NIT=23 1 4 , VOL=S  EP=  YYYYY Y,  X 

//  DISP=  (OLD,  KEEP)  , X 

//  DCB=  (RECFH=FB,LPECL=80 , BLKSIZE* 160) 

//FM.SYSIN  DD  * 

IFMS/UPD, TEST  360, RPTH,, DISK, CARD 

J00008 H 

J00009 H 

J00004- - — ‘ W CARD  Transactions  for 

J00007 H Report  RPTH 


J00003 M 


HEM  REPORT  RPTL,PS?PAN1  TAPE  TRANS  FOR  REPORT  L 
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NEW  REPORT  RPT A, PSTRAN2  TAPE  TRANS  POR  REPORT  A 
NEW  REPORT  PPTP,PSTRAN3  DISK  TPANS  POR  REPORT  F 

/* 

3.2  FR  Procedure  (XPP) 

This  procedure  is  used  to  revise  the  format  of  a NIPS 
360  PFS  data  base.  The  procedure  invokes  PR  to  analyze  the 
old  and  new  FPTs  and  to  produce  logic  statements  which  are 
then  used  by  FN  to  revise  the  file  format.  The  old  data 
file  nay  be  SAW  or  ISAM;  the  new  PPT  must  be  ISAN;  revised 
file  is  always  SAN. 

The  block  size  of  the  new  file  will  be  the  same  as  the 
old  file  block  size  unless  a new  block  size  is  specified 
with  the  BSZNEWF  symbolic  parameter. 


If  the  old  file  is  a SAN  file  on  unlabeled  magnetic  tape 
and  its  block  size  is  not.  1,004  bytes,  the  block  size  must 
be  indicated  with  the  BSZFILE  symbolic  parameter. 

3.2.1  Sample  Job  Setup 

The  following  JCL  could  be  used  to  revise  the  TEST360 
file  to  a new  format.  The  old  file  is  cataloged  on  disk. 
The  new  FFT  is  not.  The  new  TEST  36QS  SAN  file  will  be  a 
standard  label  tape  on  a 2400  unit.  The  new  TEST360  PFT  is 
on  a 2314  disk  pack  labeled  OIJPUSE.  As  the  file  being 
revised;  i.e.,  the  old  TFST360,  resides  on  tape  as  a SAN 
data  set,  the  parameter  TRANTYP  must  egual  SAN. 

//REV  EXEC  XFR,SAN=TEST360,NEWFFT=TEST360,  X 

//  VFFT=*SER=OUFUSE' ,LAB=SL, TRANT YP=SAN 

//PR.SYSIN  DD  * 

FR  CONTROL  CARDS 


/* 

If  the  old  data  file  is  a cataloged  ISAM  file  instead  of 
SAH,  simply  replace  the  SAN*  parameter  with  ISAM=  in  the 
above  example.  TP ANT YP  defaults  to  ISAN  and  need  not  be 
included  in  an  ISAN  File  Revision. 
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3.2.2  File  Structure,  Revision,  and  Maintenance 

//FR JOB  JOB  (Standard  Parameters) 

//JOBLIB  DD  (Installation  JOBLIB  Paraaeters) 

//  EXEC  XFR  ISAM* TEST 36  0, NEWFFT=FFTEST 

//FR.SYSIN  DD  * 

FILE  = TEST  360 
NEHFIL  E = FREEST 
PRINT  = ALL 
CNAM  = CNAME 
LYN  = STLOC 
PLEAC  = STPLAN 

/♦ 

File  Structuring  of  the  new  FFT  has  been  coapleted  and 
the  FFT  is  a cataloged  ISAM  data  set  named  ' FRTEST* . The 
file  to  be  revised  is  a cataloged  ISAM  data  set  named 
'TESI360 ' • The  user  has  specified  that  all  logic  statements 
are  to  be  printed.  Three  field  name  changes  are  specified. 
Other  nonaatching  field  names  found  in  the  two  FFTs  will  be 
treated  as  deletions  when  not  found  in  the  new  FFT  and  as 
additions  when  not  found  in  the  old  FFT.  The  new  seguential 
file  produced  by  the  PM  generate  step  may  be  loaded  to  dish 
using  the  SAM  to  ISAM  utility  procedure  XSTOIS.  The 
seguential  tile  may  be  retained  as  backup. 


3.3  FS  Procedure  (XFS) 

This  procedure  is  used  to  structure  FFTs.  If  a user 
library  is  desired,  use  the  LIB  parameter,  remembering  that 
the  procedure  will  suffix  the  naae  with  an  *L'.  The 
disposition  of  the  new  data  file  (FFT)  can  be  specified 
using  the  NDISP  parameter.  NDISP  defaults  to  KEEP.  The 
file  naae  aust  be  specified  by  the  ISAM  symbolic  parameter. 
If  a block  size  greater  then  1,004  bytes  is  desired,  use 
symbolic  parameter  BSZNEWP  to  indicate  the  size. 

3.3.1  Sample  Job  Setup 

The  following  control  cards  could  be  used  to  structure 
an  FFT  for  debugging  purposes.  A file  library  called 
TEST360L  is  used  but  is  not  cataloged.  It  resides  on  a 2314 
pack  with  a voluae  serial  nuaher  of  NYPACK. 
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//FSSTR  EXEC 

// 

//FS.SYSIN  DD 


XFS, ISAH  = TEST  360, 
LIB=TEST360,VLIB='SER=HYPACK* 

* 


SOURCE  FFT  DECK 


/* 


The  following  JCL  could  be  used  to  structure  and  to 
catalog  the  FFT  for  TEST360  using  the  library  TEST360L  which 
has  been  cataloged  and  to  specify  a file  block  size  of  7,000 
bytes. 

//FSSTR  XFS,ISAM=TEST360,LIB=TEST360,  X 

//  VISAH*'  SER  = !1YPACK' ,NDISP  = CATLG, 

//  BSZNEWP=7000 

//FS.SYSIN  DD  * 

SOURCE  FFT  DECK 


/* 


Explanation  of  the  EXEC  XFS  statement: 

EXEC  XFS  Symbolic  parameter  values  are  as  follows: 

ISAM*  where  TEST360  is  the  name  of  the 
created  FFT  data  set,  NDISP =CATLG  where 
the  user  wishes  to  catalog  the  FFT.  When 
this  parameter  is  not  provided,  the  FFT 
is  not  saved.  VISAH=  where  HYPACK  is  the 
actual  device  label  name  for  the  new  FFT 
data  set,  LIB=  where  TEST360  is  the  name 
of  the  user's  cataloged  file  or  general 
library.  BSZNEWP=7000  specifies  a file 
block  size  of  7,000  bytes.  When  BSZHEWP 
is  not  used,  the  file  block  size  defaults 
to  1,004  bytes. 

3.  3.2  Won-NIPS  FS 

The  standard  FS  procedure  (XFS)  can  be  used  to  structure 
FFTs  for  non-WIPS  without,  modifications. 


JOB  PREPARATION 


3.4  ISAM  TO  SAM  Procedure  (XISTOS) 

This  procedure  is  used  to  unload  an  ISAM  data  file  from 
disk-to-tape  (SAM)  or  copy  a SAM  data  file  from  tape-to-tape 
(SAM).  The  disposition  of  the  old  file  defaults  to  KEEP. 
A new  block  size  can  be  specified  for  the  output  file  by 
using  symbolic  parameter  BSZNEWF. 


It  the  input  is  a SAM  file  on  unlabeled  magnetic  tape 
and  its  block  size  is  not  1 ,004  bytes,  its  block  size  must 
be  specified  with  the  BSZFILE  symbolic  parameter. 

3.4.1  Sample  Job  Setup 


In  the  first  example,  the  JCL  could  be  used  to  unload 
the  TEST360  file  to  a 9-track  tape  with  standard  labels  and 
volume  serial  of  TSTVOL.  It  is  desired  to  delete  the  ISAM 
file  from  the  disk  pack. 


//ISTS  EXEC  XISTOS, ISAM  = TEST'»60,VISAH=,SEF  = NYPACK«,  X 

//  LAB=  S L, OD IS  P= DELETE , 

//  SAM=TEST360 ,VSAM=' SER=TSTVOL' 

/* 


In  the  second  example,  the  JCL  could  be  used  to  copy  the 
TEST360  file  onto  a 9-t.rack  tape  with  standard  labels  and 
volume  serial  of  TSTVOL.  The  old  SAM  file  is  kept  and  is  on 
the  volume  OLDVOL.  The  block  size  of  the  new  SAM  file  is 
changed  to  10,004  bytes. 

//CSTS  EXEC  XISTOS, S AM = TEST 360 , VSAM= ' S EP=TSTV  CL • , X 

//  BSZNEHP=10004,OLDSAH=TEST360,  X 

//  OLDVS  A M=  * SE  F=  OLDVOL ' 

/* 

3.5  OP  Procedures  (XOP,  xopsD) 

There  are  two  standard  procedures  for  executing  OP. 

a.  XOP  should  be  used  when  publishing  the  results  of 
a PASP  retrieval  (source  retrieval  mode).  This 
procedure  is  normally  executed  immediately 
following  the  execution  of  the  retrieval  component. 
If  it  is  executed  at  any  other  time,  the  user  must 
insure  that  the  retrieval  answer  sets  (QPT  and  QDF) 
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have  been  kept  and  are  properly  defined  in  the  XOP 
procedure.  The  XOP  procedure  can  be  used  when 
structuring  single  or  merge  file  RI^s.  The  XOP 
procedure  must  he  used  when  publishing  merge  file 
RITs. 

b.  XOPSD  should  be  used  when  structuring  and/or 
publishing  directly  from  a data  base  (source  direct 
mode).  Merge  file  PITs  may  be  structured  but  not 
executed  using  XOPSD. 

Either  procedure,  XOP  or  XOPSD,  may  be  used  when 
structuring  and/or  publishing  an  PIT  that  makes  use  of  the 
Interfile  Output  (IPO)  capability.  Although  these  RITs  are 
written  as  one  would  write  a merged  file  PIT,  they  are 
considered  to  be  a single  primary  file  with  a maximum  of 
nine  secondary  ISAM  files.  Only  one  of  the  secondary  files 

can  have  the  same  name  as  the  primary  file.  Secondary 

file(s)  are  named  in  the  symbolic  parameters,  ISAHl  and 
ISAH2  or  in  additional  DATAPILE?  through  nine  DD  statements. 

When  using  the  XOPSD  (source  direct)  procedure,  a data 
base  name  must  be  assigned  to  the  ISAM  or  SAM  symbolic 
parameter.  A source  retrieval  (XOP)  run  does  not  require  a 
data  base  name  unless  a RIT  is  being  structured  in  the  run 
and  the  PPTs  required  for  structuring  are  not  on  the  QDF 
(either  because  PARM='NOFL’  was  specified  on  the  preceding 
RASP  execute  statement  or  the  file(s)  required  for 
structuring  are  not  the  same  files  being  retrieved  and 

published).  If  the  input  is  a SAM  file  on  unlabeled 

magnetic  tape  and  its  block  size  is  not  1,004  bytes,  its 
block  size  must  be  specified  with  the  BSZFILE  symbolic 
parameter. 

To  structure  permanent  PITs  using  either  procedure,  a 
user  library  must  be  specified  using  the  LIB  parameter  and 
by  indicating  LIBDIs£=OLD  on  the  EXEC  card.  User  (private) 
libraries  must  be  specified  using  the  LIB,  LIB1,  LIB2,  etc., 
parameters  if  a RIT  uses  subroutines  and/or  tables.  Use 
care  in  assigning  the  LIB  parameter  since  the  procedure  will 
suffix  this  file  name  with  an  * L * to  form  the  final  library 
name.  This  point  should  also  be  considered  when  cataloging 
user  libraries. 
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when  tape  output  is  desired,  the  user  oust  include  an 
additional  DD  statement  named  op.OPFECORD  which  specifies 
the  DSNANE,  UNIT,  VOLUME , LABEL,  and  DISP  parameters.  If 
the  DSNAME  OPTAPE  is  used,  then  OP  will  replace  it  with  the 
name  specified  on  the  FORMAT  card  of  the  RIT,  if  any. 

Inclusion  of  the  keyword  and  operand,  PARM=LIST,  on  the 
EXEC  card  will  cause  creation  of  the  generated  code  assembly 
listing  during  the  RIT  structuring  process.  '"his  option 
should  not  normally  be  used,  but  is  included  as  a diagnostic 
aid  in  case  of  system  malfunction.  The  system  will 
automatically  generate  this  assembly  listing  if  an  error 
occurs  during  the  code  generation  process  and  is  sensed  by 
the  assembler. 

3.5.1  XOPSP  Sample  Job  for  Single  File  Processing 

To  structure  a RIT  for  a single  file  using  XOPSD,  only 
the  data  file  name  and  library  name  need  be  specified.  If 
the  RIT  being  structured  is  to  be  stored  permanently  on  the 
library,  the  library  disposition  must  be  specified. 

Example: 

//OP  EXEC  XOPSD, ISAH=TEST360 , LI B=TEST  360 ,LIBDISP=OLD 
//OP. S YS IN  DD  * 

(Op  Run  Deck) 

/* 


The  example  given  would  allow  RITs  to  be  structured 
and/or  published  for  the  indexed  sequential  data  file 
TEST360.  User  library  T5ST360L  would  be  used  and  any 
permanently  structured  RITs  would  be  stored  on  that  library. 

3.5.2  XOPSD  Sample  Job  for  Merge  File  Processing 

When  structuring  for  a merge  file  using  XOPSD,  all  data 
files  and  libraries  must  be  named.  The  data  files  may  be 
indexed  sequential  or  sequential;  they  do  not  have  to  be  the 
same  type. 

If  a library  is  specified  for  symbolic  LIB,  any  RITs 
structured  to  be  stored  permanently  will  be  stored  on  that 
library.  If  there  is  no  library  specified  for  LIB  and  there 
is  a library  specified  for  LIB1,  then  that  library  will 
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receive  aay  permanent  RITs  structured  during  the  run.  If 
neither  LIB  or  LIBl  is  specified,  the  FITs  will  not  be  per- 
manently stored.  Also,  a library  disposition  must  be  speci- 
fied as  OLD  to  store  permanent  RITs. 


Example: 

//OP  EXEC  XOPSD, IS AM “TEST 360 , SAH=TRAINER, 

//  LIB=TBST360,LIB1=TRAINER,LIBDISP=OLD 

//OP. S IS IN  DD  * 

(OP  Bun  Deck) 

/♦ 

The  example  given  would  allow  a merge  file  RIT  to  be 
structured  for  the  indexed  sequential  data  file  TEST360  and 
the  sequential  data  file  TRAINERS  using  libraries  TEST360L 
and  TRAINERL.  Any  permanent  RITs  would  be  stored  on 
TEST360L.  The  use  of  the  XOPSD  procedure  for  merge  file 
report  is  limited  to  structuring  the  RITS.  Publishing  merge 
file  reports  requires  a retrieval  step  and  the  use  of  the 
XOP  procedure. 

3.5.3  XOP  Sample  Job 

If  the  execution  is  to  publish  retrieval  answer  sets, 
the  following  job  could  be  used. 


Example: 


//R  EXEC  XRASP,ISAN=TEST360,SAH=TRAINER,LIB=TES?360, 

//  LIBl *TR AINER 
//RASP. SYSIN  DD  * 

(RASP  run  deck) 

/* 

//OP  EXEC  XOP,LIB=TEST360,LIR1*TRAINER,LIBDISP*OLD 

//OP. SYSIN  DD  * 

(OP  run  deck) 


/* 


Note  that  the  RIT  could  be  structured  and  the  reports 
published  in  one  execution  of  the  XOP  procedure.  Any  user 
subroutine  required  by  the  RITs  would  be  found  on  the 
library  TEST360L,  which  would  also  be  used  for  storing  any 
permanent  RITs  structured  during  the  run.  Note  also  that  in 
the  OP  job  step  no  data  files  are  named.  Although  file 
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names  could  have  been  specified  it  is  never  necessary  to  do 
so  when  publishing  an  answer  set.  When  structuring  a RIT 
using  the  XOP  procedure,  it  is  only  necessary  to  specify 
file  nates  when  PARN«'NOFL*  has  been  specified  on  the 
preceding  RASP  EXEC  statement  or  when  the  RIT  being 
structured  requires  a file  or  files  other  than  the  files 
retrieved  by  RASP.  when  the  XOP  procedure  is  used  to 
structure  RlTs,  the  QRT  and  QDP  are  used  to  locate  the  PFT 
in  the  absence  of  a designated  file  naae.  It  is  possible  in 
one  XOP  run  to  structure  one  PIT  using  the  QRT/QDF  and  to 
structure  additional  PITS  specifying  data  file  naaes. 

3.5.4  Segaented  Pile  Sample 

The  following  exaaple  will  publish  a report  froa  three 
segaents  of  a segaented  data  file.  The  first  segaent  is 
specified  through  the  symbolic  parameters.  The  additional 
DD  cards  aust  provide  all  necessary  DD  parameters. 


//  EXEC 

DD 

XOP,SAH=TEST360,LIB*TEST360 

//OP. S AMFILF 

DD 

// 

DD 

DSNANE*TEST360S,fOL=SER*XXXXXX, 

// 

DISP*OLD,UNIT*2400 

// 

DD 

CSNAHE*TEST360S,VOL«SER=Y YYYYY, 

// 

DISP*OLD,UNIT«2400 

//OP. SIS  IN 

DD  * 

RIT 

DSCf 

/* 

5 Output  Data 

Set 

Overrides 

The  OP  component  and  the  OP  procedures  (XOP  and  XOPSD) 
are  designed  to  allow  the  user  certain  override  options  on 
his  output  data  sets.  The  DDMAHEs  for  the  data  sets  which 
nay  be  overridden  follow,  together  with  a brief  description 
of  the  data  set: 

OPLINE  - This  is  the  output  data  set  for  printer  output. 

It  can  be  overridden  and  put  out  on  any  SAH  data  set, 
provided  the  following  paraaeters  are  provided  by 
the  user. 

BLKSIZE  - Block  size 
LRECL  - Record  length 
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RECFM  - Record  fora 
DSNAHE  - Data  set  name 

OPPUNCH  - This  is  the  output  data  set  for  card  (punch) 

output.  It  can  be  overridden  and  put  out  on  any 
SAN  data  set.  The  same  parameters  used  when  over- 
riding OPLINE  must  be  furnished  by  the  user. 


Examples: 

To  override  the  printer  output  and  create  a tape  to  be 
printed  elsewhere  (by  the  utility  IEBPTPCH)  - 

//OP. OPLINE  DC  DS  NAME=OFF LINE, DCB= (BLKS IZE  = 1 33  , X 

//  LRECL=133, RECPM=F, DEN=2) 

To  override  the  punch  and  create  a tape  to  be  punched 
later  - 

//OP. OPPUNCH  DD  DSNAHE=PUNCHIT, DCB= (BLKSIZE=80,  X 

//  LRECL  = 80,  RECFM=F,DEN=2) 

3 .5.6  Additional  DD  Card  for  Tape  Output 

If  the  RIT  being  executed  contains  a FORHAT  TAPE 
statement,  an  additional  DD  card  must  be  added  to  the  input 
■job  stream  with  a DDNAME  of  OP.OPRECOPD.  This  is  the  data 
set  for  tape  record  output.  DISP,  LABEL,  DSNAHE,  and  VOLUHE 
are  the  reguired  parameters.  The  remaining  parameters  are 
normally  taken  from  the  RIT  but  may  be  overridden  by  the 
user  at  run  time.  The  following  are  parameters  which  may  be 
overridden  by  the  user  on  the  DD  card: 

BLKSIZE  - Block  size 

LRECL  - Record  length 

RECFM  - Record  form 

DEN  - Tape  density 

TRTCH  - Recording  technique 

Example: 

To  override  the  standard  blocking  and  record  form  on  a 
record  output  and  generate  fixed  length  unblocked  records  - 
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//OP. OPR ECO R D DD  DCB= (BLKSIZE= 1 50 ,LRECL =150, R ECFB  = F) , 

//  DISP* (NEW, KEEP) ,LABEL= (,SL) , U NIT= 2400 , VO L*SER=H Y TAPE, 

//  DSNABE=OPTAPE 

Note  that  OP  will  replace  the  DSNAME  with  the  name  specified 
on  the  foraat  card  of  the  RTT,  if  any. 


3.6  QRT/QDF  Otility  Procedure  (XQRTQDF) 

This  procedure  is  used  to  create  a NIPS  360  PFS  data 
file  froa  the  answer  file  (QRT  and  QD?)  produced  by  RASP. 
The  output  froa  the  utility  is  a SAN  file.  A block  size 
greater  than  1,004  bytes  can  be  specified  for  the  SAB  file 
with  the  BSZNEHF  symbolic  paraneter. 

3.6.1  Saaple  Job  Setup 

The  following  statements  illustrate  the  job  setup  used 
to  execute  the  XQRTQDF  procedure.  The  retrieval  is  froa  the 
TEST360  file  and  uses  the  file  library  TEST 360L ; both  are 
cataloged.  The  new  data  file  will  be  naaed  TEST361 . 

//RET  EXEC  XRASP,TSAN=TEST360,LIB=TEST360 
//R ASP.SYSIN  DD  * 

RETRIEVAL  DECK 


/* 

//NEWDF  EXEC  XQRTQDF, SAN=?EST361,LAB=SL 
//QRTQDF. SYSIN  DD  * 

CONTROL  CARD 


/* 

Osing  this  job  setup,  the  user  obtains  his  new  data  file 
on  a standard  labeled,  9-track  tape  written  according  to  the 
installation  assigned  density.  The  user  aay  override  the 
syabolic  parameters  in  the  procedure  to  use  input  and  output 
data  sets  differing  froa  the  procedure  defaults. 

The  XQRTQDF  procedure  aay  be  executed  in  a separate  job 
froa  the  RASP  if  the  QRT  and  QD?  are  saved.  In  this  case. 
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the  QBT  and  QDP  symbolic  parameters  would  have  to  be 
specified  on  the  EXEC  card  with  the  appropriate  values. 

3.7  QUIP  Procedures  (XQUIP,  XQUIPSD) 

The  XQUIP  and  XQUIPSD  procedures  are  used  to  execute 
QUIP  in  the  batch  eode.  No  DD  card  overrides  are  necessary, 
but  additional  DD  statements  are  required  when  processing 
nore  than  one  segeent  of  a segmented  file,  when  using  more 
than  two  secondary  files  with  Interfile  Output  (IPO)  and 
when  using  the  TRACE  operator.  A DD  statement  named  SYSIN 
must  always  be  included  to  identify  the  user*s  input.  When 
using  the  XQUIPSD  procedure,  a file  name  must  be  specified 
using  either  the  ISAM  or  SAM  symbolic  parameter.  Por  IPO, 
the  symbolic  parameters  ISAM  and  SAM  identify  the  primary 
file. 


If  the  input  is  a SAM  file  on  unlabeled  magnetic  tape 
and  its  block  size  is  not  1,004  bytes,  its  block  size  must 
be  specified  with  the  BSZPILE  symbolic  parameter. 

In  addition,  when  executing  QUIP  with  the  XQUIPSD 
procedure,  the  Pile  Indexing  mode  of  retrieval  will  be 
automatically  invoked  whenever  practical  if  the  input  file 
is  indexed  and  the  user's  input  statements  include  either  a 
FIND  or  a retrieval  type  IP  statement  that  is  compatible 
with  Secondary  Indexing  or  a KEYWORD  statement  is  present  in 
the  query.  The  user  may  override  the  Secondary  Indexing 
mode  of  retrieval  by  using  the  PAPN='INDEX=NO'  parameter  on 
the  EXEC  card.  However,  the  presence  of  a KEYWORD  statement 
negates  the  PARH  override,  so  the  indexing  will  be  invoked 
as  long  as  it  is  feasible. 

In  QUIP,  the  processing  blocksize  is  computed  using  the 
file  statistics  records.  If  the  records  are  not  present  in 
the  file,  the  size  defaults  to  10,000  bytes.  The  user  nay 
override  this  size  by  using  the  PARH*'PBSIZE=nk*  or 
PARH =' PB=nk ' parameter  on  the  EXEC  card,  where  n is  any 
integer  from  1 to  99  inclusive.  Por  IPO,  only  the  size  of 
the  processing  block  for  the  primary  file  nay  be  overridden. 

3.7.1  Sample  Job  Setup 

The  following  JCL  may  be  used  to  retrieve,  sort,  or 
output  from  the  TEST360  file  using  the  file  library 
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TEST360L.  Both  files  are  cataloged.  Since  the  TEST 360  file 
itself  is  used,  the  XQUIPSD  procedure  is  executed.  The 
processing  block  size  will  be  reduced  from  10,000  to  6,000 
bytes,  and  the  Secondary  Indexing  node  of  retrieval  will  be 
bypassed. 


//SAMPLE1  EXEC 
// 

//QUIP. SYSIN  DD 


XQUIPSD,ISAN*TEST360, LIB=TEST360, 
PARM*'  PB=6K,  INDEX=N0' 

* 


QUIP  SOURCE  STATEMENTS 


/♦ 


The  XQUIPSD  procedure  aay  be  used  to  guery  and  output 
from  a segmented  data  file  using  either  one  segment  or  a 
concatenated  group  of  segments.  If  more  than  one  segment  is 
to  be  processed,  additional  DD  cards  must  be  included  for 
the  required  segments.  The  first  segment  can  be  described 
by  the  symbolic  parameters  in  the  procedure,  with  the  other 
segments  being  defined  by  the  additional  DD  cards. 

//SAHPLE2  EXEC  XQUIPSD, SA H=TE ST360 , LIB=TEST360 
//QUIP. SAM FILE  DC 

//  DD  DSNAHE=TEST360S,VOL=SER=XXXXXX, 

//  UNIT=2400,DISP=OLD 

//  DD  DSNAME=TSST360,VOL*SER=YYYYYY, 

//  UNIT*  2400 , D IS  P=OLD 

//QUIP. SYSIN  DD  * 

In  addition  to  using  an  ISAM  or  SAM  data  base,  QUIP  can 
also  use  a RASP  QRT  and  QDE.  To  use  a QRT/QDF,  the  XQUIP 
procedure  is  executed.  The  QRT  and  QDF  symbolic  parameters 
should  be  overridden  to  specify  the  QRT  and  QDF  names  unless 
QUIP  is  being  run  in  the  same  job  as  RASP.  The  following 
JCL  can  be  used  to  retrieve,  sort,  and  output  from  a QRT 
named  TESTQRT  and  a QDF  named  TESTQF  both  located  on  a 2314 
whose  volume  serial  is  MYPACK.  The  user  subroutine  library 
is  a cataloged  data  set  named  TESTERL. 
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//SAMPLE! 

// 

// 

//QUIP. SYS  IN 


EXEC  XQUIP,QRT=TESTQRT,QDP=TESTQDF, 
VQRT='SER=MYPACK', 

VQDF=  • SER=  HYPACK ' ,LIB=TESTER 
DD  * 


QUIP  SOURCE  STATEMENTS 


The  XQUIPSD  procedure  nay  be  used  to  output  statistical 
data  on  the  subfiles  in  a subfile  library  employing  the 
TRACE  operator.  A SUBFILE  DD  statement  defining  the  library 
oust  be  included. 

//SAMPLE4  EXEC  XQUIPSD, I SAM=TEST  360 

//QUIP. SUBFILE  DD  DSN* NMCS SCI . Si  3220 5, UNIT* 23 1 4 , 

//  VOL=S5R  = MYP  ACF, DT  SP=OLD 

//QUIP. SYSIN  DD  * 

FILE  TEST 3 60  CLASS  UNCLASSIFIED 
TRACE  NHCSSC1. Si  32205  FORMAT 
/* 

3.7.2  Interfile  Output  (IpO) 

Either  the  XQUIP  or  XQUIPSD  procedures  nay  be  used  with 
IFO.  when  XQUIPSD  is  used,  the  primary  file  nay  be  SAN  or 
ISAM  and  is  specified  by  the  SAM  or  ISAM  symbolic  parameter. 
When  XQUIP  is  used,  the  primary  file  is  the  RASP  answer  set 
and  is  specified  in  the  sane  manner  as  for  a single  file 
query. 

With  either  procedure,  up  to  nine  secondary  files  nay  be 
referenced.  All  secondary  files  must  be  ISAM.  The  symbolic 
parameters,  ISAN1  and  ISAM2 , are  provided  for  two  secondary 
files. 

3.7.3  Non-NIPS  Files 


The  XQUIPSD  procedure  must  be  used  when  querying  a non- 
NIPS  file.  The  non-NIPS  file  may  be  either  a SAN  file  or  an 
ISAM  file  and  the  name  is  specified  by  either  the  SAM  or 
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ISAM  parameter.  Also  the  PPT  to  be  used  for  the  non-NIPS 
file  Bust  be  specified  by  the  PPT  syabolic  parameter. 

Non-NIPS  files  can  be  used  with  IPO,  either  as  the 
primary  file  or  as  one  or  nore  secondary  files.  When  a non- 
NIPS  is  the  primary,  the  JCL  specifications  are  as  stated 
above.  when  a non-NIPS  file  is  used  as  a secondary  file, 
the  file  name  is  specified  using  either  ISAMl  or  ISAN2 
synbolic  parameter  or  by  the  addition  of  the  appropriate 
DAT AFILx  DD  statement  (DAT ABIL3  through  DATAPIL9)  . Also 
when  a non-NIPS  file  is  used  as  a secondary  file,  the  FPT 
for  the  file  must  be  specified  by  either  the  PPT1  or  FPT2 
synbolic  parameter  or  by  the  addition  of  the  appropriate 
FTTx  DD  statement  (PPT3  through  FPT9).  The  'x'  suffix 
number  on  the  PFTx  DD  statement  must  be  the  same  as  the 
DATAPILx  DD  statement.  All  secondary  non-NIPS  files  must  be 
ISAM. 

NOTE:  It  is  possible  to  intermix  NIPS  and  non-NIPS  files 
during  IPO. 


3.8  RASP  Procedure  (XRASP) 

This  procedure  may  be  used  for  either  single-file  or 
merge-file  retrievals.  If  the  retrieval  is  to  be  added  to 
the  file  library  identified  by  the  LIB  parameter, 
LIBDISP=OLD  must  be  specified  on  the  EXEC  card.  Use  care 
when  specifying  file  libraries  using  LIB,  LIBl,  LIB2 
parameters  since  the  procedure  will  suffix  the  specified 
name  with  an  'L'.  Indexed  files  will  be  suffixed  with  an 
•X*  when  the  parameters  XINDEX,  INDEXl,  and  INDEX2  are 
specified,  while  SAM  files  will  be  suffixed  with  an  'S'  when 
using  the  SAN,  SAMI,  and  SAM2  parameters. 

If  an  assembler  list  of  the  retrieval  is  desired,  code 
PARM= ' LIST ' on  the  EXEC  card. 

PARK*' NOPL'  on  the  EXEC  card  causes  the  PPT  and  logic 
statements  not  to  be  copied  to  the  QDF.  This  option  should 
be  used  only  when  the  QD*  is  input  to  OP. 

If  the  file  being  queried  is  indexed,  the  Pile  Indexing 
mode  of  retrieval  will  automatically  be  invoked  if  the 
retrieval  logic  allows.  The  user  nay  override  the  Secondary 
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Indexing  node  of  retrieval  by  using  the  PAPM=* INDEX*N0' 
parameter  on  the  EXEC  card.  However,  the  presence  of  a 
KEYWORD  statement  in  the  retrieval  negates  the  PAPM  override 
so  that  indexing  will  be  involved  as  long  as  it  is  feasible. 

PARH  =SORTX  on  the  EXEC  card  will  cause  RASP  to  lisit  the 
contents  of  the  QDF  to  a ainiaua  of  a few  required  control 
records.  This  technique  will  significantly  reduce  the 
processing  tine  for  large  retrievals;  however,  all  file  data 
required  for  later  processing  aust  be  placed  in  the  QRT  via 
the  SORT  stateaent.  The  truncated  QRT/QDF  can  be  used  as 
input  to  OP  to  publish  a previously  structured  PIT  or  to  any 
prograa  or  systea  which  is  able  to  process  the  QRT  exclusive 
of  the  QDF.  However,  the  truncated  QRT/QDF  cannot  be  used 
to  structure  an  RIT  nor  as  input  to  the  XQRTQD*  utility. 

3.8.1  Saaple  Job  Setup 

The  following  JCL  could  be  used  to  retrieve  from  TEST360 
using  the  file  library  TEST360L.  Both  files  are  cataloged. 

//RET  EXEC  XRASP,ISAH=TEST360,LIB=TEST360 

//RASP.  S YS  IN  DD  * 

RETRIEVAL  DECK 

/* 


!■ 


The  following  JCL  could  be  used  if  two  libraries  are 
required  and  TEST360  is  on  tape  (9-track).  The  TEST360S 
data  base  and  both  libraries  (TEST360L  and  TPAINERL)  are 
cataloged.  The  retrieval  is  to  be  added  to  the  TEST360L 
library. 

//RET  EXEC  XPASP,SAM*TEST360,LIB*TEST360,  X 

//  LIB 1=T RAINER, LI BDISPsOLD 

//R  ASP.SYSIN  DD  * 

RETRIEVAL  DECK 

/* 

The  XRASP  procedure  can  be  used  to  query  a segmented 
data  file.  If  only  one  segeent  is  to  be  queried,  the  deck 
setup  is  the  sase  as  for  a RAH  FILE  execution.  If  sore  than 
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one  segment  is  to  be  queried,  additional  DD  cards  must  be 
provided  to  define  the  additional  segments.  The  first 
segment  nay  be  defined  through  the  symbolic  parameters,  but 
the  additional  DD  statements  must  completely  define  the  data 
set. 

//  EXEC  XPASP, SAM=TEST  360 ,LTB=?EST360 


//RASP.SAMFILE 

DD 

// 

DD 

DSNAMP=TEST360S,DISP=OLD 

// 

UNIT=2400, VOL=SEP=XXXXXX 

// 

DD 

DSN=TEST360S,DISP=OLD, 

// 

0 NIT=  2h00, VOL=SER  = YYYYYY 

// RASP.SYSIN  DD  * 

RETRIEVAL  DECK 


/* 


The  following  JCL  could  be  used  to  query  an  index  data 
file.  The  Index  Data  Set  name  is  designated  by  the  symbolic 
parameter  XINDEX  and  its  volume  by  the  symbolic  parameter 
XVOL.  Por  this  example,  the  TEST360  file,  the  TEST 360L 
library,  and  the  TEST360X  Index  Data  Set  are  not  cataloged. 
Note  that  the  'X'  suffix  on  the  Index  Data  Set  name  is 
affixed  by  the  procedure  as  is  the  'L'  suffix  for  the 
library. 

//RETSX  EXEC  XRASP, ISAH=TEST360, LIB=TEST360, 

//  V IS AH= • SER=MYPACK',VLIB*' SER=  MYLI BR ' , 

//  XINDEX=TEST360, XVOL=  • SER=SXPACK' 

//RASP.SYSIN  DD  * 

RETRIEVAL  DECK 

/* 


The  following  JCL  could  be  used  to  keep  the  retrieval 
answer  data  sets  (QRTFILE  and  QDFILE)  on  the  user's  disk 
pack  for  later  use.  This  is  done  by  specifying  non- 
temporary DSNANES,  the  pack  volume  serial  numbers,  units, 
and  the  dispositions  (KEEP) . These  same  parameters  (with 
the  exception  of  disposition)  will  have  to  be  specified  when 
executing  OP  against  these  answer  data  sets.  The  TEST360 
disk  datafile  and  TEST360L  library  are  used  for  the  example. 
If  a possibility  exists  that  the  retrieval  answer  set  might 
occupy  more  than  one  volume,  the  UQDP  parameter  should  be 
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coded  as  (JQDF=*  (unit  type, 2)'  or  as  many  volumes  as 
necessary  up  to  59. 

//RASP V EXEC  XRASP,ISAN=TES^360, LIB=TEST360,  X 

//  UQDF=231«,UQRT=2314, VQRT='SER=nrPACK',  X 

//  VQDF= ' SER=MYPACK',  QDF=TSTQDF , X 

//  QRT=TSTQRT ,QDISP*KEEP 

//PASP.SYSIN  DD  * 

RETRIEVAL  DECK 


/* 


The  standard  XRASP  procedure  provides  for  retrievals 
against  up  to  three  data  files  with  a merge  of  the  records 
which  qualify.  This  can  be  expanded  to  up  to  10  data  files 
but  will  require  a change  to  the  procedures  XPASP  and  XOP. 

when  doing  a merge-file  retrieval,  all  files.  Index  Data 
Set  and  libraries  must  be  named.  The  symbolic  parameters 
for  naming  the  files  are  ISAM,  ISAM1,  and  ISAH2  for  indexed 
sequential  data  files  and  SAM,  SAMI,  and.SAM2  for  sequential 
data  files.  In  a merged-file  run  both  ISAM  and  SAM  data 
files  can  be  named. 

The  symbolic  parameters  for  naming  the  Index  Data  Sets 
associated  with  the  retrievals  in  a merged-file  file  are 
XINDBX,  XINDEX2,  and  XINDEX2. 

The  symbolic  parameters  for  naming  the  libraries  are 
LIB,  LIB1,  and  LIB2.  Library  designations  do  not  nec- 
essarily correspond  to  the  data  file  designations;  i.e.,  LIB 
may  not  be  the  library  associated  with  ISAM  or  LIB1  with 
IS  AM  1.  Aiso  it  is  not  necessary  to  specify  a library  for 
each  data  file.  However,  when  library  actions  are  to  be 
performed,  the  library  parameters  used  take  on  special 
significance.  Library  action  will  be  performed  against  the 
library  specified  by  the  LIB  or  LIB1  symbolic  parameters. 
If  a library  name  was  specified  for  LIB,  the  action  will  be 
against  that  library.  If  LIB  was  not  specified  and  a name 
was  specified  for  LIB1,  the  action  will  be  for  that  library. 
If  neither  was  specified  or  the  library  disposition  was  not 
specified,  no  library  action  will  take  place. 
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In  the  following  example,  index  sequential  data  file 
TEST360  and  sequential  data  file  TRAINERS  will  be  queried 
using  libraries  TEST360L  and  TRAINERL.  Library  action  would 
be  performed  with  library  TEST360L.  TRAINERS  is  an  indexed 
file. 

//RET1  EXEC  XRASP, I SA H=TEST 360, S A H=TR AI NER , LI B*TEST 3 60 , X 

//  LIB1=TRAINBR,LI BDISP=OLD, XINDEX=TR  AINER 

//RASP.SYSIN  DD  * 

(RASP  CONTROL  AND  SOURCE  LANGUAGE  STATEMENTS) 

/* 


3.9  SAM  TO  ISAM  Procedure  (XSTOIS) 

This  procedure  is  used  to  load  a tape  data  file  (SAM)  to 
disk  (ISAM) . Space  is  allocated  separately  for  INDEX, 
PRIME,  and  OVPLOW  areas.  The  procedure  defaults  these  areas 
to  1 , 40,  and  5 cylinders,  respectively.  The  disposition  of 
the  new  disk  file  defaults  to  KEEP. 

If  the  input  is  SAN  file  on  unlabeled  magnetic  tape  and 
its  block  size  is  not  1,004  bytes,  its  block  size  must  be 
specified  with  the  BSZFILE  symbolic  parameter. 

The  BSZNERP  symbolic  parameter  is  used  to  specify  a new 
block  size  for  the  ISAM  file.  If  it  is  not  used,  the  ISAM 
block  size  will  be  the  sane  as  the  input  SAM  block  size. 

The  procedure  also  can  be  used  to  create  an  ISAM  file  in 
the  compression/coapaction  fora  or  to  recreate  a standard 
fora  ISAM  file.  The  PARH  parameter  can  be  used  for 
specifying  the  option.  The  default  value  is  the  fora  of  the 
input  file.  The  options  are: 

PARHsCOHPRBSS 

PARM* COMPACT 

PAR M=* COMPRESS, COMPACT* 


PARM*EXP AND 
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for  compression  only 

for  coapaction  only 

for  both  compression  and 
coapaction 

for  reversing  the  compression/ 
coapaction  process  to  produce 
standard  fora  data  records 
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All  unused  PRIME 
generated  PAD  records. 


this  feature  is  not  desired,  e.g. 


space  will  be  filled  with  systea 
The  PARH  option  NOPAD  nay  be  used  if 


3.9.1 


PAR  H = NOPAD 


Sample  Job  Setup 


The  following  JCL  could  be  used  to  load  the  TEST360S 
file  from  tape-to-disk.  It  is  desired  to  increase  the  PRIME 
area  to  50  cylinders  and  catalog  the  new  data  set.  The  SAM 
file  is  not  cataloged. 


//STOIS 

// 

// 

/* 

3.  10 


EXEC  X STOIS, SAH=TEST 360, PRIME=50, 

VS  AH= 'SER=M YTAPF' , I SAH=?EST360 , 
VIS  AM= ' SER=N YPACK • , NDISP=CATLG 


Subroutine  Loader  Procedure  (XSOBLDP) 


X 

X 


This  procedure  is  used  to  place  user  subroutines  on  the 
file  library.  The  two  inputs  are  the  user  subroutine  in 
load  nodule  for*  on  a temporary  or  permanent  data  set  and  a 
control  card.  The  MODLIB  parameter  is  used  to  specify  the 
nane  of  the  data  set  containing  the  input  subroutine.  It 
defaults  to  STEMP  which  is  the  nane  of  the  data  set 
containing  the  subroutine  if  the  ASMPCL  procedure  has  been 
used  in  a prior  step  of  the  job  to  assemble  and  link  edit 
the  subroutine. 

3.10.1  Sample  Job  Setup 

The  following  JCL  could  be  used  to  asseable,  link-edit, 
and  add  a subroutine  to  the  TEST360L  library  which  is 
cataloged.  The  subroutine  is  naaed  DTGIS • 

Note:  The  MODLIB  DSNAME  is  not  specified  on  the  EXEC  card 
since  it  defaults  to  the  DSNAME  of  the  asseabler  job  step 
output  (&TEMP)  . 

//ASML  EXEC  ASMPCL 
//ASM. S YSIN  DD  * 

SfJB ROUTINE  SOURCE  DECK  (DTGIS) 
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//LKED.SYSLMOD  DD  DS N AH E=&TE HP (DTGIS)  , DIS P=  ( , P A SS) 

/* 

//  EXEC  XSUBLDR,LIB=TES?360 

//SUB. SYS  IN  DD  * 


CONTROL  CARD 


/♦ 

3.11  Table  Generation  Procedure  (XTABGEN) 

This  procedure  is  used  to  generate  one  or  more  table  (s). 
The  input  is  a card  deck  containing  the  argument/function 
pairs  and  the  generated  table  (s)  is  placed  on  the  user's 
File  Library. 

3.11.1  Sample  Job  Setup 

The  following  JCL  could  be  used  to  place  one  or  more 
table(s)  on  the  TEST360L  library  which  is  not  cataloged  and 
resides  on  a 2314  with  a volume  serial  number  of  NYPACK. 

//GEN  EXEC  XTABG  EN , LIB=TEST360  , X 

//  VLIB='SER=MYPACK' 

//TAB, SYSIN  DD  * 


INPUT  CARD  DECK  DEFINING  ONE  OP  MORE  TABLES. 


/* 

3.12  Source  Language  Library  Procedure  (XUTSOURC) 

This  procedure  may  be  used  to  add,  replace,  delete,  or 
list  members  from  a source  library.  The  library  is  a direct 
access  partitioned  data  set  which  may  be  the  file  library  or 
a special  library  for  source  material. 

3.12.1  Sample  Job  Setup 

The  following  JCL  could  be  used  to  list  a member  named 
MYRITS  from  tne  TEST360L  library. 

//LIST  EXEC  XUTSOURC, SOURCL=?EST360,NAME=MYRITS 

/* 
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The  following  JCL  could  he  used  to  add,  replace,  or 
delete  source  members  from  the  TEST  360L  library. 

//UPD  EXEC  XUTSOURC,SOURCL=TEST36Q 
//SYSIN  DD  * 

./  ADD  NAME=M YRITS  OP 

Source  Cards  for  MYRTT 

./  HEPL  NAME=RETF0IS  RASP 

Source  Cards  for  PETFOIS 

./  DELETE  N A flE=RET  R07S 

/* 

3.13  1410  to  360  Conversion  (X360CON) 

This  procedure  is  used  to  convert  1410  NIPS  data  bases 
to  the  NIPS  360  FFS  format.  The  NIPS  360  FFT  must  be 
structured  on  disk,  the  input  1410  file  is  on  tape  and  the 
new  NIPS  360  file  is  also  on  tape. 

3.13.1  Sanple  Job  Setup 

The  following  JCL  could  be  used  to  convert  the  TESTA 
1410  file  to  the  NIPS  .360  FFS  TEST360  file.  TESTA  is  on  a 
seven-track  tape  at  556  BPI  with  a voluae  serial  number  of 
XX 1 4 1 0 . The  TEST360  PFT  is  on  disk,  not  cataloged,  and  will 
be  deleted  after  conversion  (specified  by  the  ODISP 
parameter).  The  new  TES^SfiOS  file  will  be  cataloged  on  a 
standard  label  tape  whose  volume  serial  nuaber  is  *123456*. 


//CON  EXEC  X360CON,ISAH=TEST360,LAB=SL,  X 
//  ODISP=DELETE, NDISP*C  ATLG,  X 
//  V1410*'SEP*XX1410',  X 
//  VISAH*'SER*HYPACK'  ,SAfl*TEST360,  X 
//  VSAH»' SEP3 1234 56* 

//GO. SYSIN  DD  • 


1410  FFT  OBJECT  DECK 
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3.14  360  to  1410  Conversion  (X1410CON) 

This  procedure  is  used  to  convert  NIPS  360  PPS  data 
bases  to  the  1410  NIPS  format.  The  NIPS  360  PFS  input  is  an 
ISAM  data  base  on  disk;  the  output  is  tape. 

Note:  S/360  input  £or  conversion  aust  be  an  IS  AH  data  base. 

When  specifying  the  file  naae  of  the  new  1410  file, 
using  the  SAH  syabolic  parameter,  adhere  to  1410  file  naae 
rules.  The  naae  aust  be  five  characters  long,  beginning 
vith  an  alphabetic  character  and  ending  in  *A'. 

The  tape  used  for  the  new  1410  file  aust  have  had  at 
least  one  block  or  a tape  nark  written  on  it  in  the  sane 
density  and  track  foraat  as  is  desired  for  the  1410  file. 
This  should  be  done  with  an  OS  utility  (IEBGENER)  prior  to 
the  conversion  step.  If  aore  than  one  volune  is  expected  as 
output,  the  nuaber  aust  be  specified  using  the  VOLCOUNT 
field  of  the  voluae  JCL  paraaeter. 

3.14.1  Saaple  Job  Setup 

The  following  JCL  could  be  used  to  convert  the  TEST360 
tile  to  the  1410  file  called  TESTA.  The  1410  file  is 
created  on  a 7-track  tape,  556  BPI  density.  TEST360  is 
cataloged. 

//CON  EXEC  XI 41 OCON, IS AN  =TEST360 ,SAH=TESTA 
//GO. SYS IN  DO  * 

1410  TESTA  PET  OBJECT  DECK 

/* 

If  two  voluaes  are  expected  for  the  new  1410  file,  add 
the  following  paraaeter  to  the  EXEC  card: 

V SAH  = » (,,,2,SER*PL1410)  • 

3.15  List  Logic  Stateaent/Report  Naaes  Procedure 
(XDHPLIB) 

This  procedure  is  used  to  enable  the  user  to  list  report 
naaes  and/or  logic  stateaent  naaes  froa  his  file.  The 
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procedure  allows  the  data  file  to  reside  on  either  SAM  or 
ISAM. 

3.15.1  Saaple  Job  Setup 

The  following  JCL  would  list  all  report  names  and  logic 
statement  names  residing  on  an  uncataloged  ISAM  file  named 
TESTER.  The  unit  is  a 2314  disk  pack  with  the  volume  serial 
number  of  NYPACK. 

//  EXEC  XDHPLIB, ISAM =TEST 360 , V IS AM= • SE R=HYP ACK* 

//UTDMP. SYS  IN  DD  * 

PRINT, REPORT, ALL 
/* 

3. 16  Subroutine  Check  Procedure  (XSOBCHK) 

This  procedure  is  used  to  check  out  a user-written 
subroutine.  The  LIB  synbolic  parameter  identifies  the  user 
library  on  which  the  subroutine  resides.  The  OLIB  and  VLIB 
symbolic  parameters  must  be  coded  if  the  library  is  not 
cataloged. 

Input  to  the  XSOBCHK  procedure  is  a card  deck  containing 
a control  card  and  test  data  cards.  The  control  card 
identifies  the  subroutine. 

3.16.1  Sample  Job  Setup 

The  following  JCL  could  be  used  to  test  a subroutine  on 
the  TEST 360L  library.  The  TEST360L  library  is  cataloged. 

//  EXEC  XSOBCHK, LIB=TEST360 
//SOBCHK. SYS  I N DD  * 

CONTROL  CARD 
DATA  CARDS 

/* 

3.17  Classification  Change  Procedure  (XCLASS) 

This  procedure  is  used  to  change  the  classification  of 
a NIPS  360  FES  data  file.  If  the  input  is  a SAN  file  on 
unlabeled  magnetic  tape  and  its  block  size  is  not  1,004 
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bytes,  its  block  size  must  be  specified  with  the  BSZPILE 
symbolic  parameter. 

Use  symbolic  parameter  ESZNEWP  to  change  the  block  size 
of  the  file. 

3.17.1  Sample  Job  Setup 

The  following  JCL  could  be  used  to  change  the 
classification  of  an  ISAM  data  file.  It  is  an  uncataloged 
data  set  that  resides  on  a 2314  pack  with  a volume  serial 
number  of  HYLIB. 

//  EXEC  XCLASS, ISAM=^EST360 , VISAH®* S2R=HYLIB* 

//CLASS. SYS1N  DD  * 


CLASSIFICATION  CARD 


/* 


The  following  JCL  could  be  used  to  change  the 
classification  of  a SAN  file  on  tape.  The  input  is  a 
cataloged  data  set  that  resides  on  a 9-track  tape.  The 
output  is  a 9-track  scratch  tape  with  the  volume  serial 
number  of  TSTVOL. 

//  EXEC  XC LASS, SAH= TEST  360,  X 

//  VSHQUT* ' SER=TSTVOL* , S A HO  UT= 

//CLASS. SYSIN  DD  ♦ 


CLASSIFICATION  CARD 


/* 

Note  that  SAHOUT®  must  be  coded  on  the  EXEC  card  for  any 
CLASS  run  that  changes  the  classification  on  a SAN  tape 
file. 

The  following  JCL  could  be  used  to  change  the 
classification  of  a SAN  file  on  disk.  It  is  an  uncataloged 
data  set  that  resides  on  a 2314  pack  with  a volume  serial 
number  of  HYLIB. 
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//  EXEC  XCLASS,SAH=TEST360,USAM=2314, 

//  VSAM=*  HYLIB' 

//CLASS. SYSIN  DD  * 

CLASSIFICATION  CARD 

/♦ 

3.18  Data  Field  Scan  Procedure  (XUTFSCAN) 

This  procedure  is  used  to  scan  all  of  a user's  source 
component  stateaents  to  count  the  nuaber  of  data  field 
references  in  each  source,  to  provide  a total  count  of 
references  for  each  component  and  to  provide  transactions 
suitable  for  updating  and  maintaining  a NIPS  data  file.  If 
the  input  is  a SAM  file  on  unlabeled  magnetic  tape  and  its 
block  size  is  not  1,004  bytes,  its  block  size  nust  be 
specified  with  the  BSZFILE  symbolic  parameter. 

3,18.1  Sample  Job  Setup  ) 

The  following  JCL  would  count  the  data  field  references 
in  each  component  source  statement  for  the'  ISAM  file  named 
TEST360.  Some  of  the  source  statements  are  members  of  the 
library  TEST360L  and  some  are  cards  in  the  input  stream. 

Transaction  records  will  also  be  output. 

//  EXEC  XUTFSCAN, ISAM*T5ST360,DISAM='SER=HYPACK' 

//  LIB=TEST360,VLIB='SER=MYPACK' ,TRANS=TEST360T, 

//  VTRANS*'S5P*MYPACK' 

//SYSIM  DD  * 

./  SOURCE  COHP*FH, NAME= 'TESTO  A' , HEMBER=TESTA 
./  SOURCE  C0HP=PASP, NAHE=?EST01 


RASP  UUERY 

/.  SOURCE  CONP*OP, NAHE*TESTF»? 


e 

OP  RIT 


./  SOURCE  COHP«QUIP,NAHE=QTEST,HEMBEF=QTESTA 

/• 
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3.19  Index  Specification  Procedure  (XSP) 

This  procedure  is  used  to  specify  Keyword  Indexing 
information  for  a data  file  without  running  a File  Structure 
or  File  Maintenance  job.  The  disk-resident  Index  Data  Set 
may  be  either  generated  or  updated  from  either  an  ISAM  or 
SAM  data  file. 

Both  SUB/TAB  and  INDEX  statements  are  accepted  and  must 
be  specified  through  the  STSIN  device.  Both  additions  and 
deletions  of  indexed  fields  may  be  made  in  the  same  run. 

If,  for  any  reason,  the  Index  Data  Set  is  destroyed  but 
the  file  remains  operational,  the  user  has  the  option  to 
recreate  the  Index  Data  Set  to  have  it  correspond  with  the 
existing  file  by  specifying  PAPM  = ' GEN • and  XDISP*NEN.  If 
the  input  is  a SAM  file  on  unlabeled  magnetic  tape  and  its 
bloc*  size  is  not  1,004  bytes,  its  block  size  must  be 
specified  with  the  BSZFILE  symbolic  parameter. 

3.19.1  Sample  Job  Setup 

The  first  example  is  used  to  generate  a new  Index  Data 
Set  from  an  existing  ISAM  data  file. 

//GENXSP  EXEC  XSP, XINDEX=TEST360, XDISP=NFW, 

//  XVOL='SFR=HTPACK',LIB=TEST360, 

//  VLIB3,SER=MYP  ACK ', ISAM* TEST  3 60, 

//  VISAM  = * SER=HYPACK* , 

//XSP.SYSIN  DD 

INDEX  STATEMENTS 

/* 


The  second  example  is  used  to  update  an  existing  Index 
Data  Set  from  an  existing  SAM  data  file. 

//UPDXSP  EXEC  XSP,XINDEX*TEST360,XVOL*'SEF=HY PACK • , 

//  LIB*TEST36n,VLIB**SER«MYPACK», 

//  SAM«TEST360,VSAM*»  SER-HYTAPE', 

//  LAB=SL,DEN* 2, 

//  SAHOUT*, VSMOOT*’ SEP*N?HTAP'  , 

//XSP.SYSIN  DD 

INDEX  STATEMENTS 

/* 
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The  third  example  is  used  to  recreate  an  Index  Data  Set 
from  an  existing  SAN  file  containing  Index  Descriptor 
records.  In  this  example  nc  changes  are  desired  to  the 
indexed  fields.  However,  the  Index  Descriptor  records  may 
be  updated  by  including  the  proper  Index  Statements. 

//RECXSP  EXEC  XSP, PARE* 'GEN* , XI ND  EX=TEST360, 

//  XVOL=' SER=HYPACK' , LIB=TEST360, 

//  VLIB  = * SER=MYPACK  * , SAH=TEST360, 

//  VSAH* ' SEP-H YT APE' , L AB=SL, 

//  DEN=2,SAHOUT=,VSHOUNT='SER*NEWTAP', 

//  XDISP=NEW 

//XSP.SYSIN  DD 
/* 

3.20  Unload  Index  Data  Set  Procedure  (XTPDISK) 

This  procedure  is  used  to  copy  a disk-resident,  direct- 
access  organization.  Index  Data  Set  to  a tape-resident, 
sequential-access  organization  data  set.  The  XFNANE  and 
XF VOL  symbolic  parameters  must  be  supplied  for  the  Input 
Index  Data  set.  The  XTNAME  and  XTVOL  symbolic  parameters 
oust  be  supplied  for  the  unloaded  data  set  residing  on  tape. 
No  control  statements  are  required. 

If  statistics  on  the  content  of  the  index  data  set  are 
desired,  STAT=YES  should  be  designated.  When  this  option  is 
cnosen  the  corresponding  data  file  name  and  volume  must  also 
be  specified.  The  parameters  are  ISAH  and  VISAH  for  an  ISAM 
data  base  and  SAN  and  VSAH  for  a SAN  data  base. 

3.20.1  Sample  Job  Setup 

The  following  JCL  would  unload  the  ?ES*360X  Index  Data 
Set  from  a 2314  disk  pack  to  a 9-track  labeled  tape. 

//STBPNABE  EXEC  XTRDISK, 

//  XTNA HE*INDEX SAN, XTVOL* ' SEP*HYTAPE* , 

//  XFNAHE-TEST360X,XPVOL=*SER*HYPACK 

/* 

The  following  JCL  would  unload  and  print  the  contents  of 
the  TEST  360  X index  data  set. 
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//STEPNAHF  EXEC  XT R DISK, STAT*  YES 

//  XTRNAME*INDEXS AM,XTVOL='SER=MYTAPE' , 

//  XFNAME=TEST360X,XFVOL='SER*MrPACK' , 

//  I SAH=TEST360 

/* 

3.21  Load  Index  Data  Set  Procedure  (XTRTAPE) 

This  procedure  is  used  to  reconstruct  a disk-resident 
direct  access  organization  Index  Data  Set  from  a previously 
unloaded  sequential  access  organization  data  set.  The 
XPNAflE  and  XPVOL  symbolic  parameters  must  be  supplied  for 
the  input  tape.  The  XTNAME  and  XTVOL  symbolic  parameters 
must  be  supplied  for  the  Output  index  Data  Set  on  disk. 

3.21.1  Sample  Job  Setup 

The  following  JCL  would  load  the  TEST 360X  Index  Data  Set 
to  a 2314  disk  pack  from  a 9-track  labeled  tape. 

//STEPNAME  EXEC  XTRTAPE, 

//  XTNAME=TEST360X,XTVOL='SER=MYPACK' , 

//  XPNAHE=INDEXSAH,XFVOL='SER=MYTAPE' 

/* 

3.22  Keyword  Analysis  (XKA) 

This  procedure  is  used  to  obtain  printed  listing  of 
text,  nonkeywords,  and  keywords  that  occur  in  a data  base 
without  updating  the  index  data  set.  No  DD  card  overrides 
are  necessary,  but  a DD  statement  named  STSIN  must  always  be 
included  to  identify  the  user's  input.  A file  name  must  be 
specified  using  either  the  ISAM  or  SAN  symbolic  parameter. 
If  a user  scan  subroutine,  stop  word  table,  or  dictionary  is 
required,  the  library  name  must  be  specified  with  the  LIB 
symbolic  parameter. 

3.22.1  Sample  Job  Setup 

The  following  JCL  world  be  used  to  analyze  keyword 
fields  in  the  TEST 3 60  ISAN  data  base: 
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//STEPNAHE  EXEC 
// 

//XKA.SYSIN  DD 
(user 


XKA,ISAN=TEST 360 , LI B=TEST 160 , 

VISAH  = *SER  = H YPACK ', VLI B= ' SEP Y PACK* 

supplied  control  statements) 


/* 


3.23  Dictionary  Maintenance  Utility  (XKB) 

This  procedure  is  used  to  generate  or  update  keywords, 
stop  word  tables  and  dictionaries,  nore  than  one  stop  word 
table  or  dictionary  aay  be  created  or  updated  in  one  run 
provided  that  all  are  members  in  one  library  (specified  by 
the  LIB  parameter),  stop  word  table  and  dictionary  name 
specifications,  maintenance  commands,  and  data  are  accepted 
through  the  SYSIN  device. 

3.23.1  Sample  Job  Setup 

The  following  JCL  would  be  used  to  maintain  any  or  all 
stop  word  tables  and  dictionaries  in  the  TEST360  library. 

//  EXEC  XKH,LIB=TEST360 
//SKS.SYSIN  DD  * 

Table  or  Dictionary  Names 
Maintenance  Commands 
Data  (keyword  specs) 

/* 

3.24  Pormat  Definition  Translator  Procedure  (XUTODE) 

This  procedure  is  . used  to  place  format  definitions  on 
the  user  library.  The  input  definition  statements  may  be  in 
punched  cards  or  in  card  image  records  stored  in  a library. 
Bore  than  one  format  definition  may  be  added  to  the  library 
at  a tine. 


3.24.1  Sample  Job  Setup 

The  following  JCL  would  be  used  to  add  a format 
definition  in  punched  cards  to  the  user  library,  TEST360. 
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//  EXEC  XOTODE , LI8=TEST360, VLIB=*  SER=MYPACK ' 
//SYSIH  DD  * 

Definition  source  statement  cards. 


/* 

To  add  a format  to  the  TEST  360  library  when  the 
definition  source  statements  reside  in  a library  (HYLIB)  , 
the  tollowing  JCL  would  be  used. 

//  EXEC  XUTODE, LIB=TEST360, VLIB=* SER=H YPACK* 

//SYSIN  DD  DSN=  HYLIB {FOPHAT1 ) , VOL=SER  = MYPACK2, 

//  DISP=  (SHR,KEEP)  ,(JNIT=2314, 

//  DCB- ( RECFH  = FB , LRECL  = 80 , BL KS  IZE=80  0 
/♦ 


Note  that  the  definition  source  statements  may  be  on  any 
library,  including  TEST360.  The  only  restriction  is  that 
the  source  member  name  is  not  the  same  as  the  name  of  the 
format  definition. 
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Section  4 

SUPPLEMENTARY  PROCEDURES  DESCRIPTIONS 


This  section  will  examine  the  four  procedures  used  by 
NIPS  360  FFS  that  do  not  execute  a NIPS  component  or 
utility.  These  procedures  are  made  available  for  users  to 
perform  the  backup  and  restore  functions  of  RASP  generated 
QRT  and  QDF  answer  sets  and  user  libraries.  The  utilities 
IEBGENER  and  IEHNOVE  are  used  to  perform  the  backup  and 
restore  functions.  These  utility  programs  are  documented  in 
the  S/360  Systems  Reference  Library,  Utilities  manual.  Use 
of  these  procedures  requires  knowledge  of  these  programs  and 
their  JCL  requirements. 

The  sample  jobs  will  omit  the  JOB  card  that  is  always 
required  for  S/360  OS  jobs.  These  supplementary  procedures 
do  not  execute  NIPS  components  or  utilities  and  therefore  do 
not  require  a STEPLIB  card. 

Note:  In  all  JCL  examples,  the  MXW  signifying  a continuation 
card  is  always  punched  in  card  column  72,  even  though  it  is 
no  longer  required  by  the  operating  system. 

« 

4. 1 Restore  Answers  Procedure  (XRESTANS) 

This  procedure  is  used  to  load  QP.T  and  QDF  answer  data 
sets  from  tape  to  disk.  The  procedure  is  set  up  to  default 
the  space  allocation  for  the  QRT  and  the  QDF  if  not 
specified  at  execution  time.  The  XRESTANS  procedure  assumes 
that  the  QRT  and  QDF  was  copied  to  tape  by  the  XSAVEANS 
procedure. 


4.1.1  Sample  Job  Setup 

The  following  JCL  could  load  the  QRT  and  QDF  answer  data 
sets  from  tape  to  disk.  It  is  desired  to  decrease  the  space 
allocation  for  both  the  QRT  and  the  QDF.  The  QRT  and  QDF 
answer  data  sets  will  be  used  by  subsequent  job  steps  but 
will  not  be  kept  at  job  termination. 
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//RESTORE  EXEC  XREST  ANS,  VTAPE=  •SER  = MYTAPE* , X 

//  QRTSP=* (5,1) *,QDPSP=* (10,5)  • 

/* 


The  following  JCL  could  load  a QRT  named  MYQRT  and  a QDF 
named  MYQDF  from  tape  to  disk.  It  is  desired  to  save  the 
QRT  and  QDF  answer  data  sets  on  disk. 

//RESTORE  EXEC  XPESTANS, VTAPE= *SER=MYTAPE* , X 

//  QRT=MYQRT,QDF=HYQDF,QDISP=KEEP 

/* 


4.2  Restore  Library  Procedure  (XRESTLIB) 


This  procedure  uses  the  IEHMOVE  utility  program  to  load 
a user  library  from  tape  to  disk.  The  XRESTLIB  procedure 
requires  that  a volume  on  which  a work  data  set  needed  for 
the  IEHMOVE  program  can  be  placed  be  identified  with  the 
VWORK  symbolic  parameter.  The  LIB  and  VT APE  symbolic 
parameters  must  be  supplied  for  the  unloaded  user  library 
residing  on  tape.  The  ULIB  and  VLIB  symbolic  parameters 
must  be  supplied  for  the  disk  volume  that  is  to  receive  the 
user  library.  The  control  statement  required  by  the  IEHMOVE 
utility  program  must  be  provided. 

4.2.1  Sample  Job  Setup 

The  following  JCL  could  load  the  TEST360L  library  from 
tape  to  a 2314  disk  pack  with  the  volume  serial  number 
MYPACK.  The  TEST360L  li fcrary  presently  resides  on  a 
standard  labeled,  800  BPI  tape  labeled  MYTAPE. 


//RESTLIB  EXEC  XRESTLIB, LIB=TEST3 60 , VLIB=* SER= MYPACK' , 
//  VTAPE=*SEP= MYTAPE* ,VW0RK=*  SEP=WORK06* , 

//  LA  B=  SL 

//RESTLIB. SYSIN  DD  * 

COPY  PDS=TEST360,FROM=2400=NYTAPE,TO=231U=NYPACK, 
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4.3  Save  Answers  Procedure  (XSAVEANS) 

This  procedure  is  used  to  unload  the  QRT  and  QDF  answer 
data  sets  from  disk  to  tape. 

4.3.1  Sample  Job  Setup 

The  following  JCL  could  unioad  the  QRT/QDF  answer  set 
from  disk  to  tape.  The  QPT  is  named  MYQRT  and  the  QDF  is 
named  NYQDF . The  QRT/QDF  answer  set  resides  on  a 2314  disk 
pack  with  the  volume  serial  number  MYPACK . 

//SAVE  EXEC  XSAVEANS, QRT  = fl  YQRT,  QDF=HYQDF, 

//  UQRT=2314,VQFT=,SER=MYPACK' , 

//  UQDP=231 4,VQDP=' SER=MYPACK* , 

//  VTAPE= • SER=QRTQDF* 

The  following  JCL  could  unload  a QRT/QDF  answer  set  from 
disk  to  tape.  This  example  assumes  that  RASP  was  executed 
in  a prior  step  and  that  the  data  set  names  for  the  QRT/QDF 
will  be  the  temporary  defaults  established  in  the  XPASP 
procedure. 

//SAVETEHP  EXEC  XSAVEANS, VTAPE=* SER=QRTQDF' 

/* 

4.4  Save  Library  Procedure  (XSAVELIB) 

This  procedure  is  used  to  unload  a user  library  from 
disk  to  tape.  The  XSAVELIB  procedure  reguires  that  a volume 
on  which  a work  data  set  needed  for  the  IEHROVE  program  can 
be  placed  be  identified  with  the  VfORK  symbolic  parameter. 
The  LIB  and  VTAPF  symbolic  parameters  must  be  supplied  for 
the  unloaded  user  library.  The  ULIB  and  VLIB  symbolic 
parameters  must  be  supplied  for  the  disk  volume  on  which  the 
library  resides.  The  control  statement  required  by  the 
IEHN0V3  utility  program  must  he  supplied. 
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4.4.1  Saaple  Job  Setup 

The  following  JCL  could  unload  the  TEST360L  library  from 
a 2314  disk  pack  with  the  volume  serial  number  MYPACK  to  a 
tape  with  the  volume  serial  number  WYTAPE. 

//SAVELIB  EXEC  XS A V EL  IB, LI B = TEST360 , VLI B= • SEP  = H YPACK • , X 

//  VT  APE=  ' SER-fl  YT  APE'  , VHOB K=  • S ER=WORK06  • 

//SAVELIB. SYSIN  DD  * 

COPY  PDS=TEST360L, FROM=  2 31  4=  MYPACK,  TO=24C0  = H YTAPE,  X 

TODD=TAPE 

/* 
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Section  5 

PRODUCTION  PROCEDURES  DESCRIPTION 


Production  procedures  are  available  for  the  three  major 
NIPS  components:  EM,  RASP,  and  OP.  These  procedures  (FMEX, 
RASPEX,  OPEX,  and  OPSDEX)  were  developed  for  the  production 
environment  in  which  execution  only  is  required  of 
previously  compiled  RITs,  retrievals  and  logic  statements. 
Data  sets  not  required  during  execution  have  been  eliminated 
to  reduce  direct  access  storage  requirements  and 
allocation/deallocation  overhead.  The  reduction  in  the 
number  of  data  definition  (DD)  statements  permits  more  job 
steps  per  job.  Specifications  of  symbolic  parameters  and 
overide  DD  statements  for  the  production  procedures  are  the 
same  as  for  the  normal  component  procedures. 

5.1  FM  Production  Procedure  (XFMEX) 

The  procedure  XFMEX  is  used  to  update  a SAM  or  ISAM  file 
using  previously  compiled  logic  statements.  It  may  not  be 
used  if  logic  statement  compilation  is  necessary,  nor  if  a 
tile  is  to  be  generated.  The  intended  use  of  the  XFMEX 
procedure  is  for  production  update  runs  only. 

Specifications  of  symbolic  parameters  and  override  DD 
statements  for  the  production  procedure  XFMEX  are  the  same 
as  for  the  normal  component  procedure  XFM . 

5.2  OP  Production  Procedure  (XOPEX,  XOPSDEX) 

The  procedures  XOPEX  and  XOPSDEX  are  used  to  publish 
output  using  previously  structured  RIT's.  Procedure  XOPEX 
is  used  whe.i  publishing  the  results  of  a RASP  retrieval  run 
(SOURCE  RETRIEVAL);  procedure  XOPSDEX  is  used  when 
publishing  directly  from  a data  file  (SOURCE  DIRECT).  These 
procedures  nay  not  be  used  if  a RIT  is  to  be  structured. 
The  intended  use  of  procedures  XOPEX  and  XOFCDEX  is  for 
production  runs  only. 

Specifications  of  symbolic  parameters  and  override  DD 
statements  for  the  production  procedures  XOPEX  and  XOPSDEX 
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are  the  sane  as  for  the  normal  component  procedures  XOP  and 
XOPSD. 

5.3  Compression  and  Compaction  of  Data  Records 

Compression  and  compaction  provide  a means  for  the 
reduction  of  intermediate  storage  requirements  for  data 
without  altering  the  integrity  of  the  data.  This  data 
reduction  scheme  is  particularly  suited  to  data  files  that 
contain  strings  of  identical  characters  or  a large  quantity 
of  alphabetic  data. 

A string  of  identical  characters  is  compressed  by 
translating  it  to  two  bytes.  The-  first  byte  is  a control 
byte  which  indicate  that  compression  has  been  applied  and 
gives  a count  of  the  number  of  identical  consecutive  bytes 
that  were  in  the  original  string.  The  second  byte  is 
identical  to  those  in  the  original  string. 

A string  of  alphabetic  characters  is  compacted  by 
translating  it  to  a control  byte  followed  by  a string  of 
coded  characters.  The  control  byte  ‘ indicates  that 
compaction  has  been  applied  and  gives  a count  of  the  coded 
characters.  Each  coded  character  represents  a combination 
of  two  adjacent  alphabetic  characters. 

Compression  and  compaction  can  be  applied  to  data  files 
by  specifying  COMPRESS  or  COMPACT  or  •COMPRESS/COMPACT' , if 
both  features  are  desired,  as  PAPM  values  in  the  EXEC 
statement  that  calls  procedures  for  UTBLDSAM,  UTBLDISM  and 
FM  (file  generation  mode  only).  If  both  compression  and 
compaction  are  specified,  compression  is  applied  to  a record 
first  and  data  within  the  record  that  cannot  be  compressed 
is  processed  by  the  compaction  routine. 

The  compression  and  compaction  process  can  be  reversed 
by  specifying  EXPAND  as  the  PASM  value  on  the  EXEC  statement 
that  calls  the  procedures  for  UTBLDSAM  and  UTBLDISM.  EXPAND 
does  not  apply  to  PH  processing. 
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5.4  RASP  Production  Procedure  (XRASPEX) 

The  procedure  XRASPEX  is  used  to  execute  previously 
compiled  single-file  or  merge-file  retrievals.  It  Bay  not 
be  used  to  coapile  a retrieval  or  to  add  a retrieval  to  a 
library.  The  intended  use  of  procedure  XRASPEX  is  for 
production  retrievals  only. 

Specifications  for  symbolic  parameters  and  override  DD 
statements  for  the  production  procedure  XRASPEX  are  the 
same. 
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Section  6 

S/370  VS  AH  CON SIDE PAT IONS 


This  section  addresses  the  procedures  and  considerations 
under  which  the  S/370  user  of  NIPS  EPS  say  create  and 
process  a NIPS  file  using  the  Virtual  Storage  Access  Hethod 
( V SAM) . Each  NIPS  procedure  which  sight  be  used  to  process 
a VSAH  file  is  exaained  and  the  VSAN  service  routine  IDCAHS 
is  exaained  for  use  with  NIPS  VSAH  files. 

The  saaple  jobs  will  oait  the  job  card  which  is  always 
required  and  standard  for  each  installation. 

NIPS  PROCEDURES  ARE  DISTRIBUTED  WITHOUT  STEPCAT  DD  CARDS. 
VSAH  USERS  SHOULD  ADD  A STEPCAT  TO  EACH  DISTRIBUTED 
PROCEDURE. 

NOTE:  NIPS  FFS  will  not  currently  process  a VSAH  NIPS  file 

in  the  terainal  environaent.  Also  NIPS  FFS  will  not  process 
VSAH  files  which  are  not  NIPS  files. 

6.1  VSAN  Service  Routine  IDCAHS 

VSAH  processing  requires  that  VSAH  files  be  defined 
before  they  can  be  accessed  by  any  prograa  or  system, 
including  NIPS.  The  VSAH  service  routine  IDCAHS  is  used  for 
this  purpose.  By  Baking  use  of  the  various  options 
available,  the  user  can  create  user  catalogs,  define 
clusters  (allocate  and  catalog  data  sets),  copy  data  sets, 
aove  data  sets  froa  one  operating  systea  to  another,  and 
recover  froa  certain  types  of  data  danage. 

Four  of  the  IDCAHS  options  are  of  interest  to  the  NIPS 
user. 

o Creatinq  a NIPS  user  catalog 

o Defining  a cluster  for  a VSAH  file 
o Converting  an  IRAN  FILE  to  VSAH 
o Deleting  an  unneeded  cluster 
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6.1.1  Creating  a NIPS  User  Catalog 

All  VS  A H data  sets  must  be  cataloged  on  a user  or  a 
■aster  catalog.  In  noraal  applications,  the  user's  VSAM 
file  will  be  cataloged  on  the  NIPS  user  catalog.  This 
provides  for  user  control  of  his  data  sets.  The  following 
JCL  could  be  used  to  create  a NIPS  user  catalog: 


//DCAT  EXEC 
//DDMAST  • 00 
//DDNIP  DD 
//SYSPRINT  DD 
//SYSIN  DD 


/* 


PGM  =1 DC  AMS 

DSN=AMASTCAT, DISP=SHF 
UNIT=3330,  VOL=SEP=xxxxxx,DISP=OLD 
SYS OUT- A 

* 

DEFINE  USEPCATALOG  - 

(NANS  (NIPSN)  VOLUME  (XXZXXX)  - 

FILE  (DDNIP)  TRACKS  (133,8))  - 
DATA  (RECORDS  (23,8)) 


In  the  preceding  example  the  DDMAST  statement  points  to  the 
■aster  catalog,  needed  to  receive  a catalog  entry  for  the 
NIPS  user  catalog;  and  the  DDNIP  statenent  points  to  the 
disk  pack  which  will  contain  the  NIPS  user  catalog.  The 
NIPS  user  catalog  was  naned  NIPSM.  A complete  discussion 
concerning  the  creation  of  user  catalogs  is  contained  in  the 
OS/VS  Access  Methods  Services  nanual  (GC26-3836) . 


6.1.2  Defining  a Cluster  for  a VSAM  File 


Prior  to  running  a NIPS  job  which  creates  a new  VSAM 
file,  the  user  nust  first  djefine  the  cluster  that  represents 
that  VSAM  file  via  IDCANS.  In  defining  the  cluster,  the 
user  specifies  the  naae  of  the  file,  the  voluae  that 
contains  the  file,  the  key  size  and  location,  etc.  The 
following  JCL  could  be  used  to  define  a cluster  for  the  VSAM 
file  VSAM. SECOND: 


//DC LUS  EXEC  PGM* IDCA MS 

//STEPCAT  DD  DSN*NIPSH,DISP«SHF 

//DDNIP  DD  UNIT*3330,VOL«SER»XXXXXX, DISP*0LD 

//SYSPRINT  DD  SYS0UT*A 

//SYSIN  DD  * 

DEFINE  CLOSTSP  - 

( NAME  (VSAM. SECOND)  VOL  (XXXXXX)  - 
KEYS  (21,1)  BOFFERSPACE  (13312)  - 
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! 


PREESPACE  (20  20)  CYLINDERS  (2))  - 
DATA  (R  ECORDSIZ5  (100,1000)  - 
CONTROLINTERVALSIZE  (4096))  - 
INDEX  ( CONTFOLINTEP VALSIZE  (1024)  - 
REPLICATF  IMED)  - 
CAT  (NIPSM) 

/* 

In  the  preceding  example  the  STEPCAT  statement  points  to  the 
NIPS  user  catalog  which  will  contain  the  catalog  entry  for 
the  VS AN  file.  The  DDNIP  stateaent  points  to  the  disk  pack 
which  will  contain  the  VSAN  file. 

For  NIPS  VSAN  files  the  KEYS  parameter  is  specified  as 
follows: 

KEYS  (KS , 1) 

where  KS  is  the  keysize.  The  key  is  a minimum  of  15  bytes 
and  consists  of  the  following: 

a.  Two  bytes  for  system  control 

b.  The  user  defined  major  control  group 

c.  The  largest  user  or  system  defined  set  control 
group,  a minimum  of  four  bytes. 

A complete  discussion  concerning  the  definition  of  a 
cluster  is  contained  in  the  OS/VS  Access  Method  Services 
Manual. 


6.1.3  Converting  an  ISAM  Pile  to  VSAN 

The  user  can  use  the  IDCAMS  service  routine  to  convert 
an  existing  ISAM  file  to  a new  VSAN  file.  The  following  JCL 
could  be  used  to  convert  the  ISAM  file,  ISAM. SECOND,  to  the 
VSAN  file,  VSAN. SECOND: 


//REP  EXEC  PGM* IDCAMS 

//STEPCAT  DD  DSN*NIPSM,DISP*SHR 

//DDVSAH  DD  DSN*VSAH . SECOND, DISP*OLD 

//DDISAM  DD  DSN*ISAM. SECOND, UNIT*3330, 

//  VOL*SER*XXXXXX,DISP*SHP, 

//  DCB*DSORG*I S 
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//SYSPRINT  DD  SYSOUT=A 
//SYSIN  DD  * 

REPRO  INPILE  (DDISAH)  - 
OUTFILE  (DDVSAM) 


/* 


In  the  preceding  example  the  STEPCAT  statement  specifies  the 
NIPS  user  catalog  containing  the  catalog  entry  for  the  VSAH 
file.  The  DDVSAM  statement  specifies  the  VSAH  file  and  the 
DDISAM  statement  specifies  the  input  ISAM  file. 

6.1.4  Deleting  a Cluster 

If  it  becomes  necessary  to  delete  a VSAM  file,  the  user 
must  use  IDCAHS  to  delete  the  file.  IDCAHS  will  scratch  the 
file  from  the  user's  disk  pack  and  will  delete  the  file 
catalog  entry  in  the  NIPS  user  catalog.  The  following  JCL 
could  be  used  to  delete  the  VSAM  file,  VSAM. SECOND: 

//DC AT  EXEC  PG  M= IDCA  MS 

//STEPCAT  DD  DS N=NI PS M , DI SP=S HP 

//DDNIP  DD  UNIT=3330,VOL=SER=xxxxxx, DISP=OLD 

//SYSPRINT  DD  SYSOUT=A 

//SYSIN  DD  * 

DELETE  VSAH. SECOND  CATALOG  (NIPSM)  - 
FILE  (DDNIP)  PURGE 

/* 

In  the  preceding  example  the  STFPCA7  statement  specifies  the 
user  NIPS  catalog  containing  the  catalog  entry  for  the  VSAM 
file  to  be  deleted  and  the  DDNIP  statement  points  to  the 
disk  pack  containing  the  VSAM  file.  A complete  discussion 
of  the  delete  procedure  within  IDCAHS  is  contained  in  the 
OS/VS  Access  Service  Methods  Manual. 

6.2  File  Maintenance  (FH) 

when  File  Maintenance  (FH)  is  used  to  process  a VSAH 
file,  as  either  a data  base,  transaction  source  or  AFR  file, 
the  user  must  specify  the  NIPS  user  catalog  that  contains 
the  catalog  entry  for  the  VSAH  file.  This  is  done  by 
including  the  VSCAT  parameter  on  the  EXEC  statement.  The 
following  is  an  example  of  a completed  VSCAT  parameter: 


i 
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//FHS  EXEC  XFH, V SCAT*N IPSH 


JOB  PREPARATION 


6.2.1  VSAH  Generate 

When  running  a VSAH  generate  operation,  the  user  aust 
specify  the  naee  of  the  VSAH  file  containing  the  FFT  via  the 
VSDSN  parameter,  and  the  naae  of  the  newly  generated  VSAH 
file  via  the  NEHVSH  parameter.  These  two  file  naees 
(DSNAHEs)  cannot  be  t a ■ e , as  they  refer  to  two  different 
VSAH  files.  The  file  specified  by  the  NEHVSH  parameter  will 
be  the  newly  generated  file  and  aust  have  been  previously 
defined  via  the  VSAH  service  routine  IDCAHS  (section  6.1.2). 
The  user  aust  not  include  any  of  the  paraaeters  associated 
with  an  ISAH  generate.  The  following  job  could  be  used  to 
qeneiate  a VSAH  file: 

//GEN  EXEC  XPH, VSCAT*NIPS H, LIB* PR IHE, 

//  VSDSN='VSAH.FPT.PPIHE', 

//  NEHVSH*' VSAH. PRIHE' 

//FH.SYSIN  DD  * 

JFHS/GEN, PRIHE, XXX, , DISK, CARD 
• 

GENERATE  TRANSACTIONS 


/* 

In  the  above  exaaple,  the  tera  DISK  on  the  $PHS  control  card 
denotes  that  the  data  base  will  be  either  ISAH  or  VSAH. 

6.2.2  VSAH  Update 

when  running  a VSAH  update,  the  user  specifies  the  naae 
of  the  VSAH  file  with  the  VSDSN  parameter.  The  user  aust 
not  include  any  of  the  syabolic  paraaeters  associated  with 
an  ISAH  update.  The  following  job  could  be  used  to  update 
a VSAH  PILE: 

//UPD  EXEC  XPH, VSCAT*NIPS  H, 

//  VSDSN*' VSAH. PRIHE' , 

//  LIB*  PRI HE 

//FH.SYSIN  DD  * 

IFHS/UPD, PBIHE, XXX, , DISK, CARD 
• 

. UPDATE  TRANSACTIONS 

/* 
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In  the  above  example,  the  ten  DISK  on  the  $PHS  control  card 
denotes  that  the  data  base  is  either  IS  AN  or  VSAM. 

6.2.3  VS AN  Transactions 

When  an  PH  generate  or  update  is  to  be  performed  using 
a VS AH  file  as  the  transaction  source,  the  user  aust  code 
the  PH. TRANS  DD  overide  statement  which  specifies  the 
DSNAHE,  DISP  and  AHP  parameters.  The  AH P parameter  aust  be 
coded  as  follows: 

AHP=* AHORG* 

Additional  subparaaeters  may  be  specified  as  set  forth  in 
the  OS/VS  VS  AH  Programmer's  Guide  (GC26-3838). 

If  more  than  one  VSAH  file  is  to  be  used  as  the 
transaction  source,  each  file  aust  be  identified  by  a 
separate  DD  statement.  The  DD  statements  must  be  named 
ISTRANxx,  where  xx  is  a unique  identifier  for  each  DD 
statement.  The  same  parameters  specified  for  a single  VSAH 
file  on  the  PH. TRANS  DD  statement  aust  be  specified  for  each 
VSAH  file  on  the  corresponding  ISTRANxx  DD  statement.  The 
SPHS/xxx  control  card  would  specify  the  transaction  source 
as  ISAH.  The  following  job  could  be  used  to  update  a VSAH 
file  using  a VSAH  file  as  input  transactions. 

//UPD  EXEC  XFH, VSCAT=NIPSH, 

//  VSDSN*' VSAH.PRIHE', ‘ 

//  LIB*PRIHE 

//PH. TRANS  DD  DSN=VSA H. SECOND, DISP=SHP, 

//  AHP=' AHORG' 

//PH.SISIN  DD  * 

*FHS/UPD,PRIHE,ZZZ, , DISK, ISAH 
/* 


6.2.4  Processing  SAN  Piles  with  a VSAH  PFT/LS 

It  is  possible  for  the  user  to  elect  to  perform  a SAH 
file  generate  using  the  PPT  and  logic  statements  from  a VSAH 
file.  This  can  be  accomplished  by  specifying  the  VSCAT, 
VS  DSN , and  SAHOUT  parameters  along  with  the  other  parameters 
needed  to  perform  a SAH  run.  The  following  job  could  be 
used  to  generate  a SAH  file  using  a VSAH  PPT: 
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//SGEN  EXEC  XFH, VSCAT=NIPSM, 

//  VSDSN=' VSAH.PFIME* , 

//  SAHOUT=, VSNOUT=' SEP=xxxxxx' 

//FN.SYSIN  DD  * 

SFMS/GEN, PRIME ,YYY, ,T APE, CARD 
• 

. GENERATE  TRANSACTIONS 
• 

/♦ 

The  user  can  also  perform  a SAM  update  while  using  the 
FFT  and  logic  statements  from  an  existing  VSAM  file.  This 
is  accomplished  by  preparing  the  EXEC  statement  for  a normal 
SAM  update  while  including  the  VSCAT  parameter  and 

overriding  the  FM. IS AMWORK  ED  statement  to  point  to  the  VSAM 
file.  The  user  must  provide  the  DSNAME,  DISP,  and  AMP 
parameters  on  the  ISANHORK  DD  statement.  The  following  job 
could  be  used  to  update  a SAM  file  using  the  FFT  and  logic 
statements  from  a VSAM  file: 

//SUPD  EXEC  XPH, VSCAT=NIPSM, 

//  S AM= PRIME ,LIB=PRIMF, 

//  VSAH= ' SEB=xxxxxx' , 

//  VSHOOT='SEP*xxxxxx'  , 

//  SAMOUT= 

//FM. ISAMWORK  DD  DSN  = VSAM. PRIME, DISP=SHR , 

//  AMP= • AHOPG* 

//FH.SYSIN  DD  * 

SFM S/UPD, PRIME, XYZ, ,T APE, CARD 
• 

. UPDATE  TRANSACTIONS 


/♦ 

6.2.5  Other  FM  VSAM  Considerations 

If  the  user  employs  the  AFR  operator  in  POOL  to  address 
a VSAM  file,  the  DD  statement  for  the  referenced  VSAM  file 
must  specify  the  DSNAME,  DISP  and  AMP  parameters.  Also  the 
user  must  include  the  VSCAT  parameter  on  the  EXEC  statement. 
The  following  DD  statement  could  be  used  for  an  AFP 
referenced  VSAM  file: 

//AFR VS H DD  DSN=VS AM . PRIME, DISP=SHR, 

//  A MP= • A MO  PG* 
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The  BSZNEWF  parameter  used  to  specify  output  block  size 
does  aot  apply  when  generating  a VSAM  file,  as  its  block 
size  was  established  when  the  file  cluster  was  defined  via 
IDCAMS. 

When  the  user  is  performing  a SAM  generate  with  a VSAM 
FFT,  BSZNEWF  must  be  used  to  specify  the  block  size  of  the 
new  SAM  file  if  a block  size  other  than  1004  is  desired. 

6.3  File  Revision  (FR) 

1 

File  Revision  (FR)  will  revise  the  format  of  a NIPS  VSAM 
file  as  well  as  a SAM  or  ISAM  file.  The  new  FFT  can  be 
either  an  ISAM  FPT  or  a VSAM  FFT,  when  running  FR  against 

a VSAM  file  or  using  a new  VSAM  FFT,  the  user  must  include  < 

the  VSCAT  symbolic  parameter  on  the  EXEC  statement  to 
specify  the  NIPS  user  catalog. 

When  the  user  is  revising  an  old  VSAM  file,  the  EXEC  J 

statement  must  include  the  VSOLDF  parameter  (specifying  the  .. 

old  file  name)  and  the  T^ANTYP  parameter  (equal  to  VSAM)  . 

Additionally,  the  following  JCL  override  DD  statement  must 
be  included: 

//FR.VSAM  DD  AMP= • A HORG' 

( 

When  the  new  FFT  is  a VSAM  file,  the  user  must  include 
the  VSDSN  parameter  (specifying  the  FFT  name)  on  the  EXEC 
statement. 

The  following  JCL  could  be  used  to  revise  an  old  VSAM 
file  using  a new  VSAM  FFT: 

//REV  EXEC  XFR, VSCAT=NIPSH, 

//  VSDSN='NEW. PRIME* , 

//  VSOLDF=*VSAM. PRIME* , 

//  TFANT YP=VSAM, 

//  VSHOUT-'SER=xxxxxx* 

//FR.VSAM  DD  AMP='AN0RG* 

//FR. SYSIN  DD  * 

FR  CONTROL  CARDS 

/* 


I 
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The  block  size  of  the  new  SAM  file  will  be  1004  when  the 
file  being  revised  is  a VSAM  file,  unless  a different  block 
size  is  specified  in  the  BSZNEWF  parameter  on  the  EXEC 
statement . 

6,4  Pile  Structure  (PS) 

File  Structure  (FS)  is  used  to  structure  the  FFT  for  a 
new  file.  This  new  file  can  be  either  an  ISAM  file  or  a 
VSAM  file.  When  the  new  file  is  VSAM,  the  user  must  have 
previously  defined  the  file  using  the  VSAM  service  routine 
IDCAMS  (section  6.1.2).  To  structure  a VSAM  file  FFT,  the 
user  must  include  the  VSCAT  parameter  (specifying  the  name 
of  the  NIPS  user  catalog) , the  VSDSN  parameter  (specifying 
the  name  of  the  VSAM  file),  and  the  NONVSH  parameter  (must 
equal  'DUMMY,').  The  following  JCL  could  be  used  to 
structure  a VSAM  FFT: 

//PSSTR  EXEC  XFS,  VSCA'r=NIPSM, 

//  VSDSN  = ' VSAM. FFT.  PRIME', 

//  NONVSH* 'DUMMY,', 

//  LIB=PRIME 

//PS.SYSIN  DD  * 

SOURCE  FFT  DECK 


The  BSZNENF  parameter,  which  is  normally  used  to  specify 
a block  size  other  than  1004,  has  no  application  when 
structuring  a VSAM  FFT.  Block  size  was  specified  when  the 
VSAM  file  was  defined  with  the  IDCAMS  utility. 

If  the  structure  of  a VSAM  FFT  fails,  the  file  will  not 
be  automatically  deleted.  The  user  must  delete  the  VSAM 
file  using  IDCAMS  (section  6.1.4)  and  then  redefine  the  file 
with  IDCAMS  prior  to  rerunning  the  FS  job. 

6.5  VSAM  to  SAM  Procedure  (XISTOS) 

The  procedure  which  is  used  to  unload  an  ISAM  file  to 


SAM  (XISTOS)  can  also  be 

used 

to 

unload 

a VSAM 

file. 

To 

unload  a 

VSAM  file. 

t he 

user 

must 

include 

the 

VSCAT 

pa  rameter 

(specifying 

the 

NIPS 

catalog)  and 

the 

VSDSN 

parameter 

(specifying 

the 

VSAM 

file 

name)  on 

the 

EXEC 

statement.  ISAM  parameters  are  not  permitted.  The 
-T  ' blocksize  of  the  output  SAM  file  will  be  1004  unless 
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overridden  by  use  of  the 
statement.  The  following 
file: 


BSZNEWF  parameter  on  the  EXEC 
JCL  could  be  used  to  unload  a VSAN 


//VSTS  EXEC  XISTOS, VSCAT=NIPSN, 

//  VSDSN  = ' VSAN. PRIME* , 

//  SAH= PRIME, VSAM='SER=X XX xxx' 

/* 

6.6  OP 

The  user  of  a VSAH  file  can  use  the  OP  component  of  NIPS 
to  produce  reports  as  if  the  file  was  an  ISAM  file.  To 
process  a VSAH  file,  the  user  specifies  the  name  of  the  VSAM 
file  using  the  ISAM  parameter  and  the  NIPS  user  catalog  with 
the  V5CAT  parameter.  The  user  must  also  include  the 
following  JCL  override  statement: 


//OP. DATAFILE  DD  ANP= ' AHORG' 


The  following  JCL  could  be  used  to  run  a source  direct  OP 
against  the  VSAM. PRIME  file: 

//SD  EXEC  XOPSD,  VSCAT=NIPSM, 

//  ISAH=* VSAM. PRIME' , LIB=PSIHE 

//OP. DATAFILE  DD  AHP=  • AMORG ' 

//OP. SYSIN  DD  * 

OP  CONTROL  CARDS 

/* 


To  perform  merged  file  processing  against  VSAM  files, 
the  user  must  specify  the  name  of  the  NIPS  user  catalog  with 
the  V SCAT  parameter  and  the  names  of  the  VSAM  files  using 
the  ISAM,  ISAH1,  and  ISAM2  parameters.  For  each  VSAM  file 
used,  the  user  must  include  a JCL  override  DD  statement  to 
specify  AMP*' AMORG'.  The  DD  statements  are  DATAFILE  for 
ISAM,  DATAFIL1  for  ISAH1  and  DAT AFIL2  for  ISAH2.  Additional 
secondary  files  nay  be  specified  by  including  a DAT AFILx  DD 
statement  for  each  additional  file,  when  x is  a 1-digit 
number  from  3 to  9.  Each  DD  statement  must  contain  the  file 
DSNAME,  DISP=»SHR  and  AMP5*'  AHORG ' . The  following  JCL  could 
be  used  to  run  a merged  file  source  direct  OP  against  VSAH 
files: 


J 
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//SD3  EXEC  XOPSD, VSCAT=NIPSM, 

//  IS AH  = ' VSAH. PRIME*, IS AH1=' VS AM. SECOND* , 

//  IS AH2='VSAH. THIRD' ,LIB= PRIME 


//OP. DATAFILE  DD 
//OP. DAT  AFIL1  DD 
//OP . DAT  AFIL2  DD 
//OP. DATAFIL3  DD 


AHP=' AHORG' 

AHP-'AHORG' 

A HP  = 'AHORG • 

AMP=' AHORG' ,DSN=VSAM. FORTH, 


//  DISP=SHR 

//OP.SYSIN  DD  * 

OP  CONTROL  CARDS 

/* 


The  only  operand  which  must  be  coded  for  the  AHP 
parameter  is  'AHORG'.  Additional  operands  can  be  supplied 
and  their  descriptions  are  contained  in  the  OS/VS  VSAH 
Programmer's  Guide  (GC26-3838). 


6.7  QUIP 

Information  can  be  retrieved  and  output  from  VSAH  files 
using  QUIP,  but  only  in  the  batch  mode.  To  process  a VSAH 
file  using  QUIP  the  user  must  specify  the  NIPS  user  catalog 
with  the  V SCAT  parameter  and  the  name  of  the  file  in  the 
ISAM  parameter.  The  user  must  also  override  the  DATAFILE  DD 
statement  to  specify  AHP=' AHORG'.  The  following  JCL  could 
be  used  to  run  a source  direct  QUIP  against  a VSAH  file: 

//QPVSM  EXEC  XQUIPSD, VSCAT=NIPSH, 

//  ISAH='VSAM,PPIHE', LIB=PRIHE 
//QUIP. DATAFILE  DD  AHP=»AHOPG' 

//QUIP. S YSIN  DD  * 

QUIP  SOURCE  STATEMENT 

/* 


when  using  IFO,  the  first  two  secondary  files  are 
specified  by  using  the  IS  AH  1 and  ISAH2  parameters  on  the 
EXEC  statement.  The  user  must  also  override  the  DATAPILl 
and  DATAFIL2  DD  statements  to  include  the  AHP*' AHORG' 
parameter.  If  more  than  ♦■wo  secondary  files  are  reguired, 
each  additional  file  must  be  specified  by  including  a 
DATAFILx  DD  statement,  where  x is  a unique  1-digit  number. 
The  DD  statement  must  include  the  DSNAHE,  DISP=SHF  and 
AHP=' AHORG* . A total  of  nine  secondary  files  may  be 
specified.  The  following  JCL  could  be  used  to  run  a source 
direct  QUIP  with  IFO  against  VSAH  files. 
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//QPVSM  EXEC  XQUIPSD, VSCAT=NIPSH, 

//  ISAM=*VSAM. PRIME*, ISAH1=' VSAM. SECOND* , 

//  ISAM2=' VSAM. THIRD' , LIB=PPIME 


//QUIP. DATAFILE  DD 
//QUIP.  DATAFIL1  DD 
//QUIP. DATAFIL2  DD 
//QUIP. DATAFIL3  DD 
//Q  UIP.SYSIN  DD  * 


AMP= • AMORG ' 

AMP= • AHOPG' 

AHP  = ' A MOF.G  ' 

DSN=VS AM.FOPTH, DISP=SHR, AMP='  AHORG' 


QUIP  SOURCE  STATEMENTS 


/* 


The  only  operand  which  must  be  coded  for  the  AMP 
parameter  is  'AHOPG'.  Additional  operands  can  be  supplied 
as  described  in  the  OS/VS  VSAM  Programmer's  Guide  (QC26- 
3838) . 


6.8  RASP 

RASP  may  be  used  to  retrieve  data  from  a VSAM  file  for 
output  by  OP  or  QUIP.  To  retrieve  data  from  a VSAM  file  the 
user  must  specify  the  NIPS  user  catalog  with  the  VSCAT 
parameter  and  the  file  name  with  the  ISAM  parameter.  The 
user  must  also  override  the  DATAFILE  DD  statement  to  include 
AMP=' AMORG' . 

When  doing  a merged  file  retrieval  against  VSAM  files, 
the  user  must  specify  the  names  of  the  additional  files  via 
the  ISANl  and  I S A M 2 parameters  and  must  provide  overrides 
for  the  DATAFIL1  and  DATAFIL2  DD  statements  to  include 
ANP= ' AMORG • . When  more  than  three  files  are  being 
processed,  the  user  must  add  a D ATAFILx  DD  statement  for 
each  file,  where  x is  a unique  one  digit  number.  Each  DD 
statement  must  have  a DSNAMI,  DISP=SHR  and  AHP='AHOPG*.  The 
following  JCL  could  be  used  to  run  a RASP  against  VSAM 
files: 

//BSP  EXEC  XRASP, VSCAT=NIPSH, 

//  ISAM='VSAM. PRIME*, 

//  ISAH1='VSAH. SECOND', 

//  LIB=PFIHE 

//■ASP. DATAFILE  DD  ANP=* AHORG* 

//■ASP.  DATAFIL1  DD  AMP=*AMORG* 

//■ASP. STSIV  DD  • 

■ASP  SOURCE  STATEMENTS 

/• 
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The  only  operand  which  must  be  coded  for  the  AMP 
parameter  is  'AMORG'.  Additional  operands  can  be  supplied 
as  described  in  the  OS/VS  VSAM  Programmer's  Guide  (GC26- 
3838). 


6.9  SAM  to  VSAM  Procedure  (XSTOIS) 


The  procedure  which  is  used  to  load  an  ISAM  file  from  a 
SAM  file  (XSTOIS)  can  also  be  used  to  load  a VSAM.  FILE.  To 
load  a VSAM  file,  the  user  must  first  define  the  file  using 
the  VSAM  service  routine  IDCAMS  (section  6.1.2).  To  use  the 
XSTOIS  procedure  for  VSAM,  the  user  must  specify  the  NIPS 
user  catalog  with  the  VSCAT  parameter,  specify  the  file  name 
with  the  V S DSN  parameter  and  void  the  ISAM  files  by 
specifying  NONVSH*' DUMMY, ' . The  following  JCL  could  be  used 
to  load  a VSAM  file: 


//SIOVS 

// 

// 

// 

/* 


EXEC  XSTOIS, VSCAT=NIPSM, 
VSDSN*' VSAM. PRIME' , 
NONVSN='DUMHY, ', 
SAM=PRIME,VSAH='ser=xxxxxx' 


6.10  XDMPLIB 


To  run  an  XDMPLIB  job  against  a VSAM  file,  the  user  must 
specify  the  NIPS  user  catalog  with  the  VSCAT  parameter  and 
the  file  name  with  the  ISAM  parameter.  The  user  must  also 
override  the  DATAFILE  DD  statement  to  include  AMP* ' AMORG • . 
The  following  JCL  could  be  used  to  run  an  XDMPLIB  job 
against  a VSAM  file: 


//DMP  EXEC  XDMPLIB, VSCAT=NIPSM, 

//  ISAM*' VSAM. PRIME' 

//UTDMP. DATAFILE  DD  AMP* ' AMORG' 

//UTDHP.SYSIN  DD  * 

XDMPLIB  CONTROL  CARDS 

/* 

Additional  AMP  operands  may  be  specified  as  described  in  the 
OS/VS  VSAM  Programmer's  Guide  (GC26-3838) . 
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6.11  XCLASS 

To  change  the  classification  of  a VSAH  file,  the  XCLASS 
procedure  would  be  used.  The  user  aust  specify  the  NIPS 
user  catalog  with  the  VSCAT  parameter  and  the  file  name  with 
the  ISAM  parameter.  The  DATAFILE  DD  statement  aust  be 
overriden  to  include  AHP= ' A MORG ' . The  following  JCL  could 
be  used  to  change  the  classification  of  a VSAH  file: 

//CIS  EXEC  XCLASS, VSCAT=NIPSK,ISAH=' VSAM. PRIME* 

//CLASS.  DATAFILE  DD  AMP='AMORG' 

//CLASS. SYSIN  DD  * 

CLASSIFICATION  CARD 

/* 

Additional  AMP  operands  may  be  specified  as  described  in  the 
OS/VS  VSAH  Programmer's  Guide  (GC26-3838)  . 

6.12  XUTFSC  AN 

To  use  a VSAH  file  as  the  input  for  a field  scan  job, 
the  user  specifies  the  NIPS  user  catalog  with  the  VSCAT 
parameter  and  the  file  name  with  the  ISAH  parameter.  The 
DATAFILE  DD  statement  aust  be  overriden  to  include 
AM P= ' AMORG • . The  following  JCL  could  be  used  to  run  an 
XUTFSCAN  involving  a VSAH  file: 

//  EXEC  XUTFSCAN, VSCAT=NIPSH, ISAH  = ' VSAH.  PPIHE* , 

//  LIB=PRIHE, TRANS=PRIHET 

//UTFLDSCN. DATAFILE  DD  AMP* ' AHORG ' 

//UTFLDSCN. SYSIN  DD  * 

SCAN  CARDS 

/* 

Additional  A HP  operands  may  be  specified  as  described  in  the 
OS/VS  VSAH  Programmer's  Guide  (GC26-3838)  . 

6.13  XSP 

The  XSP  procedure  can  be  used  to  perform  index 
specification  on  a VSAH  file.  The  user  must  specify  the 
NIPS  user  catalog  with  the  VSCAT  parameter  and  the  file  name 
with  the  ISAM  procedure.  The  NEWFILE  DD  statement  must  be 
overridden  to  include  AMP= • AHORG ' • The  following  JCL  could 
be  used  to  index  a VSAH  file. 
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//XSPV  EXEC  XSP, VSCAT=NIPSM, 

//  ISAM=*VSAM. PRIME*  , XINDEX=PPIME, 

//  XVOL=*SER=xxxxxx',LIB=PRIME 
//XSP.NEWFILE  DD  AMP=  * AHORG ' 

//XSP.SYSXN  DD  * 

INDEX  CARDS 

/* 

Additional  AMP  operands  may  be  specified  as  described  in  the 
OS/VS  VS  AM  Programmer's  Guide  (GC26-3838)  . 

6.14  XTRDISK 

When  the  user  is  unloading  an  Index  Data  Set  for  a VSAM 
file  and  the  option  STAT=YES  is  specified,  the  NIPS  user 
catalog  must  be  specified  with  the  VSCAT  parameter  and  the 
file  naie  with  the  ISAM  parameter.  The  DATAFILE  DD 
statement  must  be  overridden  to  include  AMP=  * AMPRG  * . The 
following  JCL  could  be  used  to  unload  the  index  of  a VSAM 
file: 


//STPS  EXEC  XTRDISK, VSCAT=  NI PSM,  ST  AT=  YES  , 

//  IS A M=* VSAM. PRIME* , XFNAME=PRIHEX 

//XTR. DATAFILE  DD  ANP=*AMORG* 

/* 

Additional  AMP  operands  may  be  specified  as  described  in  the 
OS/VS  VSAM  Programmer's  Guide  (GC26-3838)  . 

6.15  XKA 

The  XKA  procedure  can  be  used  to  perform  Keyword 
analysis  on  a VSAM  file.  The  user  must  specify  the  NIPS 
user  catalog  with  the  VSCAT  parameter  and  the  file  name  with 
the  ISAM  parameter.  The  DATAFILE  DD  statement  must  be 
overriden  to  include  AMP=  • AMORG  * . The  following  JCL  could 
be  used  to  perform  Keyword  analysis  on  a VSAM  file: 


JOB  PREPARATION 


//KEY  EXEC  XKA, VSCAT=NIPSH, 

//  ISAH=*VSAH. PRIME*, IIB=PRIHE 
//XKA.  DATAFILE  DD  AHP='AHOPG' 
//XKA.SYSIN  DD  * 

XKA  CONTROL  CARDS 

/* 


Additional  AMP  operands  nay  be  specified  as  described  in  the 
OS/VS  VS  AH  Programmer's  Guide  (GC26-3838)  . 
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PARAMETER 

AUXBUFN 

AUXSP 

BLK 

BLKSIZE 

BSZFILE 

BSZNEWF 

CHKDSP 

CHKID 


Appendix  A 


SYMBOLIC  PARAMETER  DEFINITIONS 


DEFINITION 

This  defines  the  number  of  buffers  used 
by  the  auxiliary  output  data  sets  in  FM. 

This  defines  the  space  allocation  for  temporary 
storage  of  auxiliary  output  and  card 
transactions  in  FM. 

This  defines  the  blocksize  for  the  library 
created  by  XTABGEN  or  XSUBLDR.  It  defaults 
to  7294. 

This  defines  the  blocksize ,for  the  Index 
Data  Set. 

This  is  used  to  indicate  the  block  size  of 
an  input  SAM  file  on  unlabeled  magnetic 
tape.  Its  use  is  required  .only  when  the 
block  size  is  not  1,004  bytes. 

This  is  used  to  change  the  block  size  of 
a file,  cr  to  specify  a block  size  greater 
than  1,004  bytes  when  creating  a file. 

This  parameter  defines  the  conditional 
disposition  for  the  work  data  sets  and 
the  CHECKDD  data  set  utilized  in  check- 
point/restart in  case  of  an  ABEND. 

This  parameter  defines  the  DSNAMEs  for 
the  work  data  sets  and  the  CHECKDD  DD 
statement  in  the  'execute  only'  procedure. 
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CHKSP 


CYLOFL 


DEM 


DEFINITION 

This  parameter  defines  the  space  allocated 
for  the  data  set  (CHECKDD  DD  card) 
utilized  in  checkpoint/restart  for  the 
'execute  only'  procedures. 

This  specifies  amount  of  cylinder  overflow  for 
a data  base  generated  by  FH  or  loaded  to 
disk  from  tape. 

This  specifies  the  tape  density. 


DNSHOUT 


EROPT 


FFT 

FFT1 

FFT2 

GEN 


This  defines  the  name  of  the  SAM  file  generated 
by  this  run.  If  this  parameter  is  not  used, 
the  data  set  name  in  the  FMS  control  card  is 
used . 

This  specifies  the  error  option  to  be 
selected  when  an  I/O  error  occurs  while 
reading  SAM  transactions  in  ?M. 


These  define  the  FFTs  for  use  with  non-NIPS 
files. 

This  is  used  to  control  the  allocation  of 
the  NEWFILE  data  set  in  Ffl. 


Please  note  that  all  references  to  secondary  indexing 
functions  include  keyword  indexing  functions.  Keyword  stop 
word  tables  and  dictionaries  are  stored  as  members  in  either 
private  user  libraries  or  in  the  common  DUMMY. FILEL  library. 
To  obtain  keyword  functions,  use  secondary  indexing 
procedures  and  specify  symbolic  parameters  to  include  the 


libraries  that  contain  keyword 
section  2.3.3). 

INDEX  This  defines 

to  the  index 

ISAM 

ISAM1  These  define 

IS  AH  2 

JOBLIB  This  defines 

program  load 


data  (see  File  Libraries, 

the  number  of  cylinders  allocated 
of  a new  ISAM  data  file. 

ISAM  or  V s AH  data  file  names. 

the  partitioned  data  set  containing 
modules . 


fAMlSIO 

HIIINIIIQH 

JOBMAC 

This  defines  the  partitioned  data  set  containing 
generative  code  macros. 

LAB 

This  defines  label  types  for  sequential  files. 

LA  BIN 

This  defines  the  label  type  for  the  SAM  data 
file  for  the  XTRDISK  procedure  when  reguesting 
the  statistics  option. 

LIB 

LI  B 1 

LIB2 

These  define  user-library  file  names. 

- 

LIBDISP 

This  defines  the  disposition  of  user  library(s). 

NAME 

This  specifies  the  name  of  the  member 
to  be  listed  from  a source  library. 

NBBBLK 

This  defines  the  number  of  blocks  required 
to  hold  the  Index  Data  Set. 

MCTSP 

This  defines  the  space  allocation  for  tem- 
porary storage  of  new  data  records  and  data 
records  whose  key  or  length  has  changed 
during  an  FM  update. 

HODLIB 

This  defines  the  name  of  the  user’s  subroutine 
library  for  the  subroutine  loader. 

NDISP 

This  defines  the  disposition  of  the  ISAM  data 
file  in  XFS  and  XSTOIS  procedures,  and  the  dis- 
position of  the  new  file  in  360  to  1410  conver- 
sion. 

NEWFFT 

This  defines  the  name  of  the  new  FPT 
for  PR. 

• 

NEHVSM 

This  defines  the  name  of  the  newly 
generated  VSAM  file  in  FH. 

NRMDSP 

This  parameter  defines  the  normal  dis- 
position for  the  work  data  sets  and  the 

CHECKDD  data  set  utilized  in  checkpoint/ 
restart  in  case  of  an  ABEND. 
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iAIMSm 

NONVSM 


ODISP 

QLDLAE) 

OLDS AM 

OLDVSAM 

OSDISP 

OV  FLOW 

PRIME 

PTFJOBL 

PTFJOBM 

QDF 

QDFSP 

ODISP 


QBT 


DEF  INITION 

This  is  used  to  control  allocation  of  ISAM 
data  files  when  processing  VSAH  files  in 
FS  and  TSTOS. 

This  defines  the  disposition  of  the  old 
data  file  in  the  X360CON  and  the  XISTOS 
procedures. 

This  defines  the  label  paraneter  of  the 
1410  data  file  during  data  conversion. 

This  defines  the  rase  of  the  old  SAM  file 
in  the  XISTOS  procedure. 

This  defines  the  volume  for  the  old  SAM 
file  in  the  XISTOS  procedure. 

This  defines  the  disposition  of  the  old  ^ i 

SAM  file  in  the  XISTOS  procedure. 

This  defines  the  number  of  cylinders  allocated 
to  the  overflow  area  for  a new  ISAM  data  file. 

* 

This  defines  the  number  of  cylinders  allocated 
to  the  prime  area  for  a new  ISAM  data  file. 

This  defines  the  data  set  name  of  a partitioned 

data  set  containing  the  PTF  load  nodules.  , 

This  defines  the  data  set  name  of  the  partitioned 
data  set  containing  PTF  generative  code  macros. 

This  defines  the  name  of  the  PASP  qualified 
data  file  if  other  than  a temporary  name  is 
required. 

This  defines  the  space  allocation  for  the  RASP 
qualified  data  file. 

This  defines  the  disposition  of  the  RASP 
qualified  data  file  and  qualified  record 
table. 

This  defines  the  name  of  the  RASP  qualified 
record  table. 


EAMiillO 

UHTSP 


aszinxmii 


4 • 


SAM 

SAMI 
SA  M2 


SEQNO 


SDISP 

SLAB 

SAMOUT 

SORTSP 

STAT 

STG 

souscl 

TBLK 

IDISP 

TB  ANS 

TRANSP 


This  defines  the  space  allocation  for  the  RASP 
qualified  record  table. 


These  define  SAM  data  file  names. 


This  parameter  defines  the  data  set's  position 
with  respect  to  other  data  sets  on  the 
voluae. 

This  defines  the  disposition  of  the  user's 
source  library. 

This  defines  the  label  type  for  sort 
work  tapes. 

I 

This  is  used  to  control  the  allocation  of 

the  PMSANOUT  and  FMNDATA  data  sets  in  FM.  ^ 

This  defines  the  cylinder  allocation  for  disk 
sort  work  areas. 

This  requests  the  statistics  option  for 
for  XTPDISK  index  utility. 

This  defines  the  unit  type  for  sort  work  areas. 

This  defines  the  user's  source  library  naaes. 

This  defines  the  blocksize  for  the  File 
Analysis  Statistics  transaction  data  set. 

This  defines  the  disposition  for  the  File 
Analysis  Statistics  transaction  data  set. 

This  defines  the  File  Analysis  Statistics 
transaction  data  file  name. 

This  defines  the  space  allocation  for 
temporary  storage  of  update  transactions 
with  the  sore  key  and  logic  statement  name 
appended . 
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IAMQSIER 
TR  ANTYP 


THBUFNO 

TRCH 

UCHK 

UPFT 

UFFT1 

UFFT2 

UISAK 

ULIB 

ULIB1 

(JLIB2 

UQDF 

UQBT 

US  AH 

USHHCT 


DEF INIJIOp 

This  defines  to  the  PH  component  the  data 
set  containing  records  to  be  used  as  trans- 
actions during  execution  of  FR.  Default 
value  is  ISAH.  The  value  for  this  param- 
eter is  either  ISAH,  SAH  or  VSAH  and  denotes 
the  access  method  associated  with  the  file 
being  revised. 

This  defines  the  number  of  buffers  used  by 
some  of  the  transaction  temporary  data  sets. 

This  specifies  the  TRTCH  DCB  parameter  for 
7-track  tapes. 

This  parameter  defines  the  unit  type  for  the 
CHECKDD  DD  statement  in  the  'execute  only' 
procedures. 

This  defines  the  unit  type  of  the  new  FFT 
for  F?  or  the  unit  type  of  the  FTT  used  with 
primary  non-NIPS  file  in  QUIP. 

These  define  the  unit  type  of  the  FFTs  used 
with  secondary  non-NIPS  files  in  QUIP. 

This  defines  the  unit  type  for  all  ISAH  files 


These  define  the  unit  type  for  all  user 
libraries. 

This  defines  the  unit  type  for  the  RASP 
qualified  data  file. 

This  defines  the  unit  type  for  the  PASP- 
qualified  record  table. 

This  defines  the  unit  type  for  all  SAH  files. 


This  defines  the  unit  type  of  the  tape  on 
which  the  new  file  will  be  written  if  major 
control  fields  are  changed  during  an  FH 
SAH  or  FR  run. 


defujiiion 
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M£M£IE£ 

USMOUT 


USOURCL 


U1410 
VC  HK 


VFFT 


VFFT1 
VFFT  2 

VISAM 
VI SAM 1 
VI SA  M2 

VL  IB 

VLIB1 

VLIB2 

VINDEX 

VOVFLJH 

VPRIME 


VSOURCL 


VQDF 


This  defines  the  unit  type  of  the  tape  on 
which  the  new  file  will  be  written  if  no 
major  control  fields  are  changed  during  an 
FM  SAM  or  FR  run. 

This  defines  the  unit  type  for  the  user 
source  library. 

This  defines  the  unit  for  a 1410  data  base. 

This  paraneter  defines  the  volune  for  the 
CHECKDD  DD  statement  in  the  'execute  only' 
procedures. 

This  defines  the  volume  of  the  new  FFT 
for  FR  or  the  volume  of  the  FFT  used  with 
a primary  non-NTPS  file  in  QUIP. 

These  define  the  volume  of  the  FFTs  used 
with  secondary  non-NIPS  files  in  QOIP. 


These  define  the  volume  for  all  ISAM  files. 


J 


These  define  the  volume  for  user  libraries. 


These  define  the  volumes  on  which  the  re- 
spective portions  (INDEX,  OVFLOW,  PRIME)  of 
the  new  ISAM  data  set  will  be  allocated  during 
an  FM  generate  run. 

This  defines  the  volume  of  the  user's  source 
library. 

This  defines  the  volume  for  +he  RASP-qualified 
data  file. 


VQHT 


VS  AM 
VS  AMI 
VSAM2 


This  defines  the  volume  for  the  RASP-qualified 
record  table. 


These  define  the  volume  for  all  SAM  files. 
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FAHA&E1ER 


DEFINITION 


VS  CAT 

VS  DSN 

VSMMCT 

VSMOUT 

VSOLDF 

VI  4 10 
XD  ISP 

XFDISP 

XFNAME 

XFUNIT 

XF  VOL 

XINDEX 

XINDEX1 

XINDEX2 


This  defines  the  NIPS  user  catalog 
for  VS  AM  processing. 

This  defines  the  VSAN  file  being 
processed  in  FM,  FS,  ISTOS,  and  STOIS 
and  the  new  VSAM  FFT  in  FR. 

This  defines  the  volune  on  which  the  new  file 
will  be  written  if  major  control  fields  are 
changed  during  an  FM  SAM  or  FR  run. 

This  defines  the  volume  on  which  the  new 
file  will  be  written  if  no  major  control 
fields  are  changed  during  an  FM  SAM  or 
FR  run. 

This  defines  the  VSAM  file  being  revised 
in  FR. 

This  defines  the  volume  for  a 1410  data  base. 

This  defines  the  disposition  of  the  Index 
Data  Set. 

This  parameter  describes  the  status  of  the 
"FROM"  Index  Data  Set,  and  indicates  what  is 
to  be  done  with  it  after  termination  of 
UTNDXTFR  . 

This  parameter  defines  the  name  given  to 
the  "FROM"  Index  Data  Set  for  UTNDXTFR. 

This  UTNDXTFR  parameter  is  used  to  specify 
information  about  the  input  unit  used  by 
the  "FROM"  Index  Data  Set. 

This  UTNDXTFP  parameter  provides  information 
about  the  volume  on  which  the  "FROM"  Index 
Data  Set  resides. 

This  defines  the  name  of  the  Index  Data  Set. 

This  defines  additional  Index  Data  Sets  to 
be  used  in  a merge  file  retrieval. 


— . ■- 
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2AEAQ.IISS 

XTDISP 


definition 
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XT  NAME 

XT  VOL 

XUN  IT 

XV  OL 

XVOL1 

XVOL2 


This  parameter  describes  the  status  of  the 
"TO"  Index  Data  Set,  and  indicates  what  is 
to  be  done  with  it  after  termination  of 
OTNDXTFR . 

This  parameter  defines  the  name  given  to  the 
"TO"  Index  Data  Set  for  tITNDXTFP. 

This  OTNDXTPP  parameter  provides  information 
about  the  volume  on  which  the  "TO"  Index 
Data  Set  resides. 

This  is  the  unit  type  for  the  Index  Data  Set. 
These  define  the  volume  for  Index  Data  Sets. 
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Appendix  B 
INPUT  SOURCE  DDNAHE 


COMPONENT 

HASP 

OP 

FH  . 

PS 

FH 

QUIP 

TABGEN 

SUBLDB 

SAN  TO  ISAH 

ISAM  TO  SAN 

360CON 

1410CON 

UTQHTQDF 

UTDNPLIB 

UTPLDSCN 

UTSUBCHK 

UTCLASS 

UTSOURC 

XSP 

UTNDXKAN 
XKH 
XK  A 


STEPNAHE  . DDNAHE 

RAS  P.STSIN 
OP. STSIN 
PH.  SYSIN 
PS.  SYSIN 
FR. SYSIN 
QUIP. SYSIN 
TAB. SYSIN 
SOB. SYSIN 

STP1  (No  Input  Source) 

STP 1 (No  Input  Source) 

GO. SYSIN 

GO. SYSIN 

QRTQDF. SYSIN 

OTDHP. SYSIN 

OTP. SYSIN 

SUBCHK. SYSIN 

CLASS. SYSIN 

SOUPC. SYSIN 

UTXSP. SYSIN 

XKA. SYSIN 

XKH. SYSIN 

XKA. SYSIN 


Appendix  c 

PROCEDURES  DESCRIPTIONS 


PBOC ED1JRS 

DESCRIPTION 

XOP 

This  procedure  is  normally  only  used  to. publish 
the  results  of  a RASP  retrieval  run  or  to  struc- 
ture an  °TT. 

XOPSD 

This  procedure  is  used  to  publish  directly  from 
a data  base  or  to  structure  a PIT. 

XPM 

This  procedure  is  used  to  perform  all  file  main- 
tenance functions. 

XPS 

This  procedure  is  used  to  structure  a data  base. 

XR  ASP 

This  procedure  is  used  to  retrieve  and  sort  data 
from  one  or  more  data  files. 

l 

xisros 

This  procedure  is  used  to  convert  an  ISAM  or 

VS  AH  data  file  to  a SAH  tape  data  file  or 
copy  a SAM  tape  data  file  to  a SAM  tape  data 
file. 

XSTOIS 

This  procedure  is  used  to  convert  a SAM  tape 
data  base  to  an  ISAM  or  VSAN  dish  data  base. 

XSUBLDR 

This  procedure  is  used  to  link-edit  a user  sub- 
routine (which  has  already  been  assembled)  into 
a file  library  with  the  necessary  control  in- 
formation to  load  the  subroutine  at  execution 
time. 

XFMZX 

this  procedure  is  used  to  perform  file  main- 
tenance updates  using  stored  logic  statements. 

XR ASPEX 

This  procedures  is  used  to  retrieve  and  sort 
data  from  one  or  more  data  Files  using  stored 
retrieve  Is. 

XOPEX 

This  procedure  is  used  to  publish  the  results 
of  a RASP  retrieval  run  using  a stored  PIT. 

XOPSDEX 

This  procedure  is  used  to  publish  directly 
from  a data  file  using  a stored  PIT. 
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XTABGEN 

X1410CON 

X360CON 

XF8 

XQBTQDF 

XQOIP 

XOUIPSD 

XDHPLIB 

XSUBCHK 

XCLASS 

XUTFSCAN 

XUTSOOBC 

XSP 


This  procedure  is  used  to  generate  tables  and 
place  them  in  a user  library. 

This  procedure  is  used  to  convert  a NIPS  360 
FFS  data  base  to  a 1410  NIPS  data  base. 

This  procedure  is  used  to  convert  a 1410  NIPS 
data  base  to  a NIPS  360  FFS  data  base. 

This  procedure  is  used  to  revise  a NIPS  360  FFS 
data  base  to  a new  foraat. 

This  procedure  is  used  to  create  a NIPS  360  PFS 
data  file  from  the  answer  file  produced  by 
PASP. 

This  procedure  is  used  to  publish  the  results 
from  a RASP  retrieval  run. 

This  procedure  is  used  to  retrieve,  sort,  and 
output  directly  from  a NIPS  360  FFS  data  file 
or  a S/360  non-NIPS  data  file. 

This  procedure  is  used  to  print  logic  state- 
ments and/or  report  names  from  a NIPS  360 
FFS  data  file. 

This  procedure  is  used  to  test  user-written 
subroutines. 

This  procedure  is  used  to  change  the  classi- 
fication on  any  NIPS  360  FFS  data  file. 

This  procedure  is  used  to  scan  component 
source  statements  and  count  the  number  of 
data  field  references  in  each  source 
statement. 

This  procedure  is  used  to  add,  replace, 
delete,  or  list  source  members  from  a 
library. 

This  procedure  is  used  to  either  generate 
or  update  an  Index  Data  Set  based  on  an 
IS  AN  data  file. 


91 


£fi&££BU8£ 

XTRDISK 


XTBTAPE 


XK  A 


XKH 


DES£BI£2I2fi 

This  procedure  is  used  to  transfer  a disk- 
resident  Index  Data  Set  to  tape.  This 
operation  condenses  the  Index  Data  Set. 

The  tape  so  created  is  a sequential  data  set 
consisting  of  variable-length  blocked  records 
that  contain  the  source  data  and  control 
information  for  subsequently  reconstructing 
the  Index  Data  Set. 

This  procedure  is  used  to  reconstruct  a disk- 
resident  Index  Data  Set  from  a previously 
unloaded  sequential  version. 

This  procedure  is  used  to  obtain  printed 
listings  of  text,  nonkeyvords,  and  keywords 
that  occur  in  a file  without  updating  the 
index  data  set. 

This  procedure  is  used  to  create,  update,  or 
display  a stop  word  table  or  dictionary. 
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Appendix  D 

NIPS  PROCEDURE  RETURN  CODES 


SUCCESSFUL 

UNSUCCESSFUL 

£iaS£2U&2 

£EXJl£N_CODE 

mO£N_CO£E 

XH> 

0,1 

111 

XFR 

0,1,2 

121 

XPH,  XPHEX 

0,1 

131 

XR ASP,  XSASPEX 

0,1 

141 

XOP, XOPSD,  XOPEX, 
XOPSDEX 

0,1 

151 

XUUIP,  XQUIPSD 

0,1 

151 

XTABGEN 

0,1 

171 

XSUBLDS 

0,1 

171 

XQRTQDP 

0,1 

181 

XISTOS 

0 

XSTOIS 

0 

XSUBCHK 

0 

191 

XCLASS 

0,1 

211 

XUTSOURC 

0 

221 

These  procedures  issue  return  codes  which  nay  be  tested 
by  subsequent  steps  of  the  job.  A successful  return  code  is 
issued  upon  satisfactory  completion  of  the  job  step;  an 
unsuccessful  return  code  is  issued  if  the  job  step  is  not 
satisfactorily  completed.  Satisfactory  completion  means 
that  the  results  of  the  job  step  are  usable  for  a succeeding 
job  step. 

The  XOP  and  XOPSD  procedures  will  issue  a return  code  of 
151  when  no  output  is  publis1  i,  unless  output  was  not 
requested;  in  this  case  a return  code  of  151  will  be  issued 
if  no  RITs  are  structured,  '"he  other  procedures  will  issue 
unsuccessful  return  codes  when  the  step  is  terminated 
without  ABLNDing. 

Return  codes  issued  by  all  preceding  steps  may  be 
tested;  e.g.,  C0ND=(3,GE);  those  issued  for  any  specific 
step  or  combination  of  steps;  i.e. , COND* ( (131, EQ)  , 
(181, EQ) ) , to  bypass  this  job  step  if  either  the  EH  step  or 
the  UTQRTQDP  job  step  was  not  satisfactorily  completed. 
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see  the  JBJ1  Sistea/^6 0 Ope^aUr^  System  Job  Control 
Laaaiiaas  Reference,  Porn  OC28-6704  for  a description  of” he 
use  of  return  codes. 


i 
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Appendix  E 

NIPS  PROCEDURE  DD  STATEMENT  USAGE 


i 


i 

i 


ppoCHD^s  E:  XPS  (Pile  Structuring) 


STEPCAT 

STEPLIB 

SLIB 

NEMVSM 

NEWPILE 


SORT  LIB 

SORTWKOI 

through 

SOFTUK06 

SORTIN 


SORTOUT 


SYSOUT 

SYSUDUMP 

SYSPRTNT 


Defines  the  NIPS  user  catalog  for  VSAM 
processing. 

Defines  the  NIPS  system  library. 

Defines  the  user  and  system  libraries. 

Defines  the  VSAM  PPT  output  by  PS  phase  2. 

The  file  must  have  been  previously  defined 
by  IDCAMS. 

Defines  the  EFT  output  of  PS  phase  2.  It  is  an 
indexed  sequential  data  set.  If  the  PPT  is  to  be 
saved,  the  ISAM,  VISAM,  and  DISP  symbolic  param- 
eters must  be  coded  accordingly. 

Defines  the  S/160  Operating  System's  sort  library. 

Defines  worlc  data  set  used  by  SORT.  They  must 
all  be  the  sane  unit  type. 


Defines  the  output  of  FS  phase  1 and  input  to 
SORT.  Contains  the  temporary  PPT  entries,  one 
per  PIELD  or  GROUP  card. 

Defines  the  output  of  SOPT  and  input  to  PS 
phase  2.  Contains  the  temporary  PPT  entries 
sorted  into  alphabetical  order  on  PIELD  and 
GROUP  names. 

Defines  the  error  list  from  SORT.  Currently 
set  up  as  a dummy  data  set. 

ABEND  dump  printer  output. 

Defines  the  printed  output  of  PS.  Contains 
PPT  listings  and  any  error  messages. 
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CELNEH 


Defines  the  EFT  output  that  is  scratched  if 
the  PS  run  was  unsuccessful  due  to  errors. 


SOURCPRT  Defines  a printer  output  data  set  used 

for  source  listings. 

SOURCLIB  Defines  a library  used  to  store  source 

■aterial. 


SYSUT1  Temporary  data  set  for  INDEX  Specification 

statements  to  be  processed  by  the  INDEX 
Specification  processor,  IXSP,  which  builds 
descriptor  (D)  records  for  the  file. 

SYSIN  Defines  the  input  source  statements  for  PS. 

This  statement  must  be  supplied  by  the  user 
as  //FS. SYSIN  DD  *. 


PROCEDURE:  XPR  (Pile  Revision) 

fThe  following  DD  statements  appear  in  the  PR  and  FRTST 
steps  of  this  procedure.  For  a description  of  all  other  DD 
statements,  refer  to  the  XFH  procedure. 


STEPCAT 

STEPLIB 

SYSOUT 

SYSPRINT 

SYSUDUMP 

SYSPUNCH 

OLDVSN 

VSHPILE 

OLDPILB 


Defines  the  NIPS  user  catalog  for  VSAN 
processing. 

Defines  the  NIPS  system  library. 

Defines  a printer  output  data  set  for  sort 
messages . 

Defines  a printer  output  data  set. 

ABEND  dump  printer  output. 

Defines  a punch  output  data  set. 

Defines  the  VSAN  data  file  to  be  revised. 

Defines  the  data  set  containing  the  new 
VSAN  PPT. 

Defines  the  ISAH  data  file  to  be  revised. 
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S AHPILE 

Defines  the  SAM  data  file  to  be  revised. 

DATAFILE 

Defines  a data  set  containing  the  new  ISAM  FPT. 

TDDRCDS 

Defines  a temporary  data  set  for  generated 

TDD  cards. 

POOLRCDS 

Defines  a temporary  data  set  for  generated 

POOL  statements. 

FRVSNA 

Defines  a temporary  data  set  containing  first 

24  generated  logic  statements. 

FRVSNB 

Defines  a temporary  data  set  containing  second 
group  of  24  generated  logic  statements  if 
needed. 

FRVSNC 

Defines  the  temporary  data  set  containing  a 
third  group  of  24  generated  logic  statements  if 
needed. 

PFGENCD 

Defines  the  temporary  data  set  FHS  control 
card  for  file  generation  steps;  passed  to 

GENT  and  GSND  steps. 

SORTLIB 

Defines  the  S/360  Operating  System's  Sort 
library. 

SORTIN 

Defines  the  temporary  data  set  containing 
intermediate  work  records  to  be  sorted. 

* 

SORTWK01 

through 

SORTUK06 

Defines  the  work  data  sets  used  by  SORT. 

They  must  all  be  the  sane  unit  type. 

SORTOUT 

Defines  the  temporary  data  set  for  sorted 
intermediate  work  records. 

• 

SYSIN 

Defines  the  input  source  statements  for  PR. 

This  statement  must  be  supplied  by  the  user 
as  //PR. SYSIN  DD  *. 

TR  ANTYP 

Defines  the  DD  card  to  be  used  for  input 
transaction  to  PH. 
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ISAM  Defines  to  PM  where  update  transactions  may 

be  found.  Entries  in  this  DD  correspond  to 
the  OLDPILE  DD. 

SAM  Defines  to  FM  where  update  transactions  aay 

be  found.  Entries  in  this  DD  correspond  to 
the  SAMPILE  DD. 

Defines  to  PM  where  update  transactions 
■ay  be  found.  Entries  in  this  DD 
correspond  to  the  OLDVSM  DD. 


J 


i 


H 
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£E2££I)U££:  XFM,  XFMEX  (Pile  Maintenance) 


STEPCAT 


STEPLIB 


SYSOUT 


SYSPRINT 


SISLIST 


S YSUBUHP 


VSMFILE 


NEWVSM 


DATAFILE 


NEHFILE 


FHCOMH 


FMFLUD 


FHTRANS 


FHLABELS 


Defines  the  NIPS  user  catalog  for  VSAH 
processing. 

Defines  the  NIPS  syste*  library. 

Printer  output  for  sort  messages. 

Printer  output  for  remainder  of  FM. 

Printer  output  for  assembler  listing  of  logic 
statements. 

ABEND  dump  printer  output. 

Defines  the  VSAM  data  file  to  be  processed 
by  FM. 

Defines  the  VSAH  data  file  generated  by  an 
FHS/GEN . This  data  file  must  have  been 
previously  defined  by  IDCAHS. 

Defines  the  indexed  sequential  data  file  to 
be  processed  by  FM. 

Defines  the  indexed  sequential  data  file 
created  during  an  FM  generation  run.  The 
user  normally  codes  the  INDEX,  PRIMS,  and 
OVPLOW  symbolic  parameters  accordingly  on 
the  EXEC  card. 

Defines  a temporary  data  set  used  for  section 
communication  data. 

Defines  a temporary  data  set  used  for  logic 
statement  compilation  and  contains  formatted 
images  of  the  user's  input  statements. 

Defines  a temporary  data  set  containing  the 
images  of  card  transactions,  if  any. 

Defines  a temporary  data  set  containing  lists  of 
POOL  instruction  labels  used  in  the  logic  state- 
ments. 
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! 


FNST  AT 

Printer  output  for  statistics  gathered  during  the  run 

FflCM 

Defines  a temporary  data  set  containing  an  inter- 
mediate form  cf  the  logic  statement  control 
records. 

FMCMFILE 

Defines  a temporary  da4- a set  containing  the  logic 
statement  control  member  records  in  their  final 
format. 

FHLITFIL 

Defines  a temporary  data  set  containing  the 
literals  produced  for  logic  statement  compila- 
tion . 

SYSLIB 

Identifies  the  library  containing  those  macros 
necessary  to  generate  logic  statements 
(Gen  Code  macros)  . 

FMLEIN 

Defines  the  temporary  data  set  containing  the 
output  of  the  compiler. 

SYSLMOD 

Defines  the  data  set  containing  the  logic  state- 
ment C5FC?  load  modules. 

TEML5ESC 

Defines  the  temporary  data  set  containing  the 
list  of  the  names  of  temporary  logic  statements. 

SQRTLIB 

Defines  th«»  S/360  Operating  System's  sort 
libra  ry . 

SOFTIN 

TAPEIN 

Defines  the  data  sp+s  containing  the  unsorted 
update  records. 

50RT*K01 

through 

SORTWK06 

Defines  t ha  work  data  sets  residing  on  disk 
and  used  by  sort. 

SOETOUT 

TAPEOUT 

Defines  the  data  sets  containing  the  sorted 
update  records. 

TAPEWK01 

through 

TAPEUK04 

Defines  the  work  data  sets  residing  on  tape  and 
used  by  sort. 

FHLEFILE 

Defines  the  temporary  data  set  containing  the 
linkage  editor  control  statements. 
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FMMAURO 


FMOUTNAC 


RECSIN 


BECSOUT 


RECSWK01 

through 

RECSWKQ6 

TRANS 


FMSSTTBL 


FNAUXOP 


PUNCH 


AUX1 

through 

AUXb 


FSTAUX 


Defines  the  temporary  data  set  containing  the 
input  to  the  FN  compiler. 

Defines  the  temporary  data  set  containing  the 
Oen  Code  macro  statements  that  will  be  input 
to  the  FM  compiler. 

Defines  a temporary  data  set  containing  new  data 
records  and  subsets  to  be  used  as  input  to  a data 
record  sort.  These  records  will  eventually  be 
merged  into  the  data  file  to  form  the  new  SAN 
data  file. 

Defines  a temporary  data  set  containing  the 
sorted  new  da*a  records  and  subsets. 

Defines  the  disk  sort  work  areas  for  the 
sort  of  the  data  records. 


Defines  the  transaction  input  file.  This  DD 
statement  mus*  be  overridden  by  the  user  to 
identify  a single  disk  or  transaction  data  set. 
For  multiple  transaction  sources  see  section  3.1. 

Defines  the  temporary  data  set  containing  a 
list  of  the  periodic  set  numbers  to  be 
accessed  by  the  Ft*  run. 

Defines  a temporary  data  set  containing  all 
the  auxiliary  output  records.  All  auxiliary 
records,  regardless  of  device  th«y  are  to  be 
written  to,  are  first  written  to  FNAUXOP. 

Defines  the  punch  data  set  for  the  user's 
punched  output. 

Defines  the  data  sets  for  tape  or  disk  auxiliary 
output.  The  user  must  override  these  DD 
statements  to  describe  the  data  sets  he  wishes 
to  produce. 

Defines  a temporary  data  set.  containing  out- 
put for  a second  printer  output. 
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SLIB 


OMMACS 


GENFILE 

LITFILE 


EDITFILE 


FMNPlUD 


FMTEFILS 


FHA3FIL 


Defines  a temporary  partitioned  data  set 
cor.taininq  temporary  logic  statements,  and 
the  user  and  system  libraries. 

Defines  a temporary  data  set  containing  the 
comDiler  input  of  those  macros  generated 
for  Ordinary  Maintenance  (OH)  . 

Defines  a temporary  data  set  used  as  a work 
area  for  the  OH  compiler. 

Same  properties  as  FiLITFIL  but  dedicated 
for  OH  use  only. 

Defines  a data  set  used  as  a work  area  by  the 
OH  compiler. 

Same  properties  as  FHFLOD  but  dedicated  for 
OH  use  only. 

Defines  a temporary  data  set  containing  extended 
TDD  formats  for  OH. 

Defines  a temporary  data  s«t  containing  extended 
ADD  statement  records  for  OH. 


FHSODANQ 


NPLERR 


NPLHACS 


ASSEMIN 


This  DD  statement  prevents  the  update  of  a data 
set  simultaneously  by  SODA  (Source  Data) 
and  FH. 

Defines  a temporary  data  set  containing  error 
messages  reflecting  those  errors  detected  by 
the  NFL  editing  steps. 

Defines  a temporary  data  set  containing  NFL 
generated  macro  prototypes  with  their  corre- 
sponding parameters;  it  is  used  as  input  to  the 
macro  generator. 

Defines  two  concatenated  data  sets  containing 
generated  macros  and  those  values  specified 
in  OH  DEFINE  statements;  all  used  as  input 
to  the  assembler. 
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IS ANWORK 

Defines  a temporary  ISAM  data  set  containing 
the  PPT  and  logic  statement  library  during 
sequential  file  processing. 

SAMFILE 

Defines  the  sequential  data  set  to  be  processed 
FH. 

FMNDATA 

Defines  the  sequential  output  data  file  when 
record  key  changes  occurred  during  sequential 
file  processing. 

FMSAMOUT 

Defines  the  output  sequential  data  file  that 
is  produced  by  sequential  file  processing 
without  key  changes. 

STAT 

Defines  the  temporary  data  set  used  by  the 
statistics  capability. 

TRANST 

Defines  a temporary  data  set  containing 
the  File  Analysis  Statistics  Transactions 
data  file. 

SOURCPR  T 

Defines  a printer  output  data  set  used  for 
source  listings. 

SOURCLIB 

Defines  a library  used  to  store  source 
material. 

SYSIU 

Defines  the  input  source  statements  for  Ffl. 

This  statement  must  be  supplied  by  the  user 
as  //FM.SYSIN  DD  *. 

IXTRANS 

This  defines  the  temporary  S AH  data  set  used  to 
hold  the  Index  Transaction  Records  for  input  to 
Index  Maintenance. 

XI NDPX 

This  defines  the  Index  Data  Set. 

JOB  PREPARATION 


i 


i 


1 
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Procedure : XPASP,  XPASPEX  (Petrieval  and  Sort  Processor) 

STEPCAT  Defines  th*'  NIPS  user  catalog  for  VSAM 

process ing . 

STEPLIB  Defines  th*1  VIPS  system  library. 

DATAFILE  Defines  the  indexed  sequential  data  files 

DATAFIL1  to  be  interrogated  by  RASP. 

DATAFIL2 


SAHPILS  Defines  the  sequential  data  files  to  be  interrogated 

SAHPILE 1 by  RASP. 

SAHPILE2 


QDFILE 


SOItTOOT 


SORTIN 


SO8TKK01 

through 

SORTMK06 

SORTLIB 


SrSLHOD 


SLIB 


DLIB 


Defines  the  sequential  data  set  generated 
by  RASP  containing  the  retrieval  source 
statements  and  the  subset  of  qualified  records 
from  the  retrieval. 

Used  by  S/36ft  sort.  At  the  end  of  retrieval 
proper,  this  data  set  is  the  Qualifying  Pecord 
Table  (QFT)  generated  during  retrieval  time. 

Defines  the  input  data  set  (QP'r)  to  S/360 
sort . 

Defines  the  vorfc  data  sets  used  by  S/360  sort. 


Defines  the  S/360  Operating  System's  sort 
library. 

Defines  a temporary  data  set  vhich  first  con- 
tains RASP  source  statements  and  finally 
compiled  retrievals,  if  permanent  retrievals 
are  specified,  they  are  copied  from  SYSLHOD 
to  the  data  set  defined  by  the  SLIB  DD  state- 
ment. 

Defines  a temporary  partitioned  data  set  con- 
taining temporary  retrievals,  the  user  library 
and  system  libraries. 

Defines  the  user's  primary  file  library. 


J 
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TLIB 

SYSLIB 

DPONCH 

SYSUT1 

SYSUT2 

SYSUT3 

STEREO 

STPOUTDD 

ASSEMIN 

RSIPoS 

NAHSTAB 

STAT 


Defines  the  user's  secondary  file  library. 

Library  references  will  always  search  the 
library  specified  by  DLIB  before  searching 
TLIB. 

Defines  the  library  containing  the  Gen  Code 
■acros  used  to  generate  a retrieval. 

Defines  the  data  set  which  contains  the 
compiled  CSECTS. 

Defines  the  data  set  containing  the  statement 
factoring  input  and  is  used  by  the  assembler 
and  linkage  editor  for  work  data  sets. 

Defines  the  data  set  containing  the  qualifica- 
tion mask  records  generated  by  statement  factor- 
ing for  the  translator  section.  Also  used  by 
the  assembler  for  a work  data  set. 

Defines  the  data  set  containing  translator 
generated  linkage  editor  control  cards.  Also 
used  by  the  assembler  as  a work  data  set. 

Contains  the  final  stereotype  records  from 
Edit  Pass  2 used  as  input  to  the  translator. 

Defines  the  temporary  data  set  used  by  the 
input  editor  phase  only  and  contains  intermediate 
stereotype  records. 

Defines  the  assembler  input  data  set  generated  by 
the  translator. 

Defines  a partitioned  data  set  used  throughout 
RASP  as  the  run  communications  data  set. 

Defines  the  temporary  data  set  containing  a list 
of  field/group  names  as  detected  by  the  RASP  edit. 
Resolved  by  Edit  Pass  2 against  the  EFT. 

Defines  the  temporary  data  set  used  by  the 
statistics  capability.  •• 
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SYSPFINT 

SYSOUT 

SYSUDUNP 

XINDEX 

XINDEX1 

XIND*.X2 

PRINTER 

SYSDUNHY 

SO  UR CP RT 

SOURCLIB 

srsiN 


Used  to  print  any  user  data  from  the  RASP 
component . 

Defines  a printer  output  data  set  containing  S/360 
sort  messages. 

ABEND  dump  printer  output. 

These  define  the  Index  Data  Sets  to  be  used. 


This  defines  diagnostic  messages  from  Index 
Processing. 

Required  to  negate  the  printout  from  the  linkage 
editor. 

Defines  a printer  output  data  set  used  for 
source  listings. 

Defines  a library  used  to  store  source 
material. 

Defines  the  input  source  statements  for  RASP. 
This  statement  must  be  supplied  by  the  user  as 
//RASP.SYSIN  DD  *. 


JOB  PREPARATION 

placed ate: 

XOP,  XOPSD,  XOPEX,  XOPSDEX  (Output  Processor) 

STEPCAT 

Defines  the  NIPS  user  catalog  for  VSAM 
processing. 

STEPLIB 

Defines  the  NIPS  systea  library. 

DATAFILE 
DATAFIL1 
DAT AFIL2 

Defines  the  indexed  sequential  data  files  processed 
by  OP. 

SAHPILE 

SAMPILE1 

SAHP1LE2 

Defines  the  sequential  data  files  processed 
by  OP. 

DLIB 

TLIB 

Pemanent  RITs  will  be  stored  on  one  of 
data  sets. 

these 

SYSPRINT 

SYSOUT 

Defines  printer  output  data  sets. 

S YSUDUHP 

ABEND  duap  printer  output. 

SISUT1 

SYSUT2 

SYSUT3 

Defines  temporary  work  data  sets. 

SYSPUNCH 

Defines  a temporary  data  set  containing 
modules  resulting  from  the  assembly. 

the  ob  Ject 

SYSLIB 

Defines  a data  set  containing  the  Gen 
Code  macros  used  to  generate  a HIT. 

SYSLHOD 

Defines  an  output  library  for  temporary 

data  sets. 

SYSTPRT 

Defines  the  printer  output  data  set  for 
assembler  and  linkage  editor  listings. 

the 

opmcp 

Defines  a temporary  data  set  containing  OP 
supervisor  control  cards.  Created  by  OPBEGIN 
and  used  by  OPCTLPRC. 

opstst 

Defines  a temporary  data  set  containing 

RIT 

specification  decks,  created  by  OPBBGIH  and 
used  by  OPTAG. 
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OPCREATE 


OPCOflHEC 

STRUCT 

IHSTS 


LCF 

LCT 

LITSTB 


NAHOEP 


> 


LlTAb 


RGTAB 

CGC 

ERRTAB 


Defines  a temporary  data  set  containing  the 
RIT  create  cards  and  pointers  to  the  correspond- 
ing specification  deck.  Created  by  OPBEGIN 
and  used  by  OPTAG. 

Defines  a temporary  data  set  containing  coa- 
aunications  for  OPTAG.  Created  by  OPBEGIN. 


Saae  as  OPSTST. 

Defines  a teaporary  data  set  containing  the 

aacro  calls  and  instructions  coaprising  a ' 

RIT.  Created  by  OPTAG  and  used  by  the  asseabler. 

Defines  a teaporary  data  set  containing  the 
linkedit  control  cards  for  peraanent  RIT. 

Saae  as  LCP  but  for  teaporary  RITs. 

Defines  a teaporary  data  set  containing  aacro  ^ . 

definitions  generated  by  OPTAG  defining  the 
coaaunications  CSECTs  of  the  RITs  that  have  been 
structured. 

Defines  a teaporary  data  set  containing  a naae- 
definition  string  defining  the  attributes,  in 
coded  fora,  of  field/group  naaes. 

Defines  a teaporary  data  set  containing  a table  , 

of  literals  defined  in  a RIT.  Created  and  used 
by  OPTAG. 


Defines  a teaporary  data  set  containing  a table 
in  internal  format  of  the  functions  of  a RIT. 
Created  and  used  by  OPTAG. 

Defines  a teaporary  data  set  containing  a table, 
by  RIT,  of  CSICT  ID  used  for  constructing  the 
link-edit  control  files. 

Defines  a teaporary  data  set  containing  a table 
of  error  codes  recognized  in  the  editing  of  the 
RIT  specification  decks. 
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DCTN  Y 

Defines  a temporary  data  set  for  the  storage 
of  a dictionary  of  data  fields  and  literal 
names  in  source  form. 

SUBTAB 

Defines  a temporary  data  set  created  and  used 
by  OPTAG  for  storage  of  a’ table  of  conversion 
subroutines  and  tables  used  by  the  PIT. 

OPLGOSO 

Defines  a temporary  data  set  containing  the 
preliminary  execution  table.  Created  and  used 
by  0 PCTLPRC. 

OPLEXEX 

Defines  a temporary  data  set  containing  the 
execution  table.  Created  by  OPCTLPPC  and  used 
by  OPPROPER. 

OPLEXDIR 

Defines  a temporary  data  set  containing  a 
directory  into  the  execution  table.  Created 
by  0 PCTLPRC  and  used  by  OPPROPER. 

OPLINE 

Defines  a printer  output  data  set'  for  the  printed 
output  of  a PIT. 

OPPUNCH 

Defines  a punch  output  data  set  for  the  punched 
output  of  a PIT. 

OP  RECORD 

Defines  a data  set  for  RI'r  record  output. 

SLIB 

Defines  libraries  of  load  modules. 

SYSAIN 

Defines  a concatenation  of  the  data  sets 
defined  by  the  LITSTR  and  INSTS  DD  statements. 

SYSLIM 

Defines  the  link-edit  control  file  for  permanent 
RITs.  (LCP) 

SISTIN 

Defines  the  link-edit  control  file  for  temporary 
RITs  (LCT) 

LOADS 

Defines  a temporary  data  set  containing  object 

■odules  to  bo  link-edited. 


JOB  PREPARATION 


QDFILE  Defines  a teaporary  data  set  containing  those 

data  records  which  were  qualified  by  PASP. 

QRTFILE  Defines  the  P ASP-generated  data  set  containing 

sorted  pointers  into  the  QDPILE. 

STAT  Defines  the  teaporary  data  set  used  by  the 

statistics  capability. 

SOURCPRT  Defines  a printer  output  data  set  used  for 

source  listings. 

SOURCLIB  Defines  a library  used  to  store  source 

aaterial. 
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E£2 £§&!£.£: 

STEPLIB 

5YSQDUHP 

SYSPRINT 

SORTLIB 

SOHTWKO 1 

through 

SORTUK06 

SYSOUT 

SYSLMOD 

SYSIN 


* 


XTABGEN  (Table  Generator) 

Defines  the  NIPS  systen  library. 

ABEND  printer  output. 

Defines  a printer  output  data  set. 

Defines  the  S/360  Operating  Systee's  sort 
library. 

Defines  the  S/360  Sort  disk  work  data  sets. 


Defines  a printer  output  data  set  for  the  S/360 
SORT  messages . 

Defines  a partitioned  data  set  where  the 
table  is  to  be  stored  by  the  linkage  editor. 

Defines  the  TABGEN  source  input  statenents. 

This  statement  nust  be  supplied  by  the  user 
as  //TAB. SYSTN  DD  *. 


I 
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Procedure;  XSOBLDP  (Subroutine  Loader) 

STEPLIB  Defines  the  NIPS  system  library. 

SYSABEND  ABEND  dump  printer  output. 

SYSPRINT  Defines  printer  output  data  set  used  to  print 

subroutine  loader  output. 

ASSEHIN  Defines  the  assembler  input  data  set  built 

by  the  subroutine  loader. 

LNKEDIN  Defines  the  linkage  editor  input  data  set 

containing  control  cards  for  that  processor. 

SYSOOT  Defines  a printer  data  set. 

SYSUT1  Defines  a work  data  set  used  by  the  assembler 

and  linkage  editor. 

SYSUT2  Defines  work  data  sets  used  by  the  assembler. 

SYSUT3 

ASMBL. SYSLI B Defines  the  macro  library  containing  the 
macro  QUTSOBR . 

SYSPUNCH  Defines  the  data  set  containing  the  assembler 

output  CSECTs . 

ASHBL. SYSIN  Defines  the  same  data  set  as  ASSEHIN. 

SYSLHOD  Defines  the  partitioned  data  set  onto  which 

the  user  subroutine  is  to  be  loaded. 

DPUNCH  Defines  the  same  data  set  as  LNKEDIN. 

SYSLIN  Defines  the  sane  data  set  as  SISPONCH. 

LKEDIT. SYSLI B Defines  the  partitioned  data  set  containing 

any  load  nodules  called  internally  by  the 
user  subroutine. 

NODLIB  Defines  the  partitioned  data  set  containing 

the  user  subroutine  input  load  nodule. 
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SYSIN 

Procedure: 

STEPCAT 

STEPLIB 


Defines  the  input  source  deck  and 

■ust  be  supplied  by  the  user  as  //SUB. SYSIN  DD 

XSTOIS  (Pile  Load  Utility) 

Defines  the  NTPS  user  catalog  for  VSAH 
processing. 

Defines  the  NIPS  system  library. 


*. 


VSHFILE  Defines  the  VSAN  data  file  to  be  loaded. 

This  data  file  must  have  been  previously 
defined  by  IDCAMS. 


DATAPILE  Defines  the  indexed  sequential  data  set  to  be 

created. 

SAHPILE  Defines  the  sequential  data  set  used  to  create 

the  ISAM  data  set. 


SYSPPINT  Defines  a printer  output  data  set. 

SYSUDURP  ABEND  dump  printer  output. 


Procedure:  XISTOS  (Pile  Unload  Utility) 


STEPCAT 

STEPLIB 

VSMPILE 


Defines  the  NIPS  user  catalog  for  VSAN 
processing. 

Defines  the  NIPS  system  library. 

Defines  the  VSAH  data  set  to  be  unloaded. 


DATAPILE 

SAHPILE 

SYSPRIHT 

SYSUDURP 

SAHOUT 


Defines  the  indexed  sequential  data  set  to  be 
unloaded. 

Defines  the  sequential  data  set  to  be  copied. 
Defines  a printer  output  data  set. 

ABEND  dump  printer  output. 

Defines  the  sequential  data  set  to  be  created. 


i 
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Procedure:  X1410CON  (360  to  1410  Data  Conversion) 

STEPLIB  Defines  the  NIPS  systea  library. 

SYSPRINT  Defines  printer  output  data  sets. 

SYSOUT 

SYSUDUHP  ABEND  duip  printer  output. 

DATAFILE  Defines  the  NIPS  360  P?S  ISAH  data  set  to  be 

converted  to  a 1410  data  file. 

NEHPILE  Defines  the  sequential  1410  data  file  generated 

by  this  utility. 

SYSIN  Defines  the  1410  FFT  object  deck  and  aust.  be 

supplied  by  the  user  as  //GO. SYSIN  DD  *. 

Procedure:  X360CON  (1410  to  360  Data  Conversion) 

SYSPRINT  Defines  printer  output  data  sets. 

SYSOUT 

SYSUDUHP  ABEND  duap  printer  output. 

DATAFILE  Defines  the  NIPS  360  FFS  ISAH  FFT. 

FILE  1 4 10  Defines  the  1410  data  file. 

NEHFILE  Defines  the  NIPS  360  FFS  sequential  data  set 

generated  by  this  utility. 

SYSIN  Defines  the  1410  FFT  object  deck  and  aust  be 

supplied  by  the  user  as  //GO. SYSIN  DD  *. 


JOB  PREPARATION 


Procedure: 

STEPLIB 

SYSPRINT 

SYSUDCJMP 

QRTFILE 

QDFILE 

SAHFILE 

SYSIN 


XQRTQDF 

Defines  the  NIPS  system  library. 

Defines  a printer  output  data  set. 

ABEND  dump  printer  output. 

Defines  a data  set  containing  sorted  pointers 
into  the  QDFILE  created  by  RASP. 

Defines  a data  set  containing  those  data  records 
qualified  by  RASP. 

Defines  a sequential  data  set  which  has  all  the 
properties  of  a S/360  SAN  data  set. 

Defines  the  QRTQDF  source  input  statements.  This 
statement  must  be  supplied  by  the  user  as 
//QRTQDF. SYSIN  DD  *. 
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£t2£SllitS: 

STEPCAT 


STEPLIB 

SYSUT1 

SYSUT2 

STS0T3 

SYSUT4 

SLIB 

DATAFILE 


DATAFIL1 

DATAFIL2 

FPT 

FFT1 

FFT2 

SAMPILE 


SYSPRINT 

PB 


KEY 


SORTWKOI 

through 

SORTNK04 

S YSUDUHP 

SOUBCPRT 


YQUIP,  XQUIPSD  (Quick  Inquiry  Processor) 

Defines  the  NI»S  user  catalog  for  VSAH 
processing. 

Defines  the  KIPS  systei  library. 

Defines  temporary  work  data  sets  used  for  structur- 
ing  the  query,  and  for  Index  Processing. 


Defines  user  and  systei  libraries. 

Defines  the  indexed  sequential  or  VSAH  data 
set  accessed  by  QUIP  in  source  direct  node. 

Defines  the  indexed  sequential  data  sets  accessed 
by  QUIP  as  secondary  files  in  Interfile  Output. 


Defines  the  PPT  data  sets  which  are  associated 
with  non-NIPS  files  being  accessed  by  QUIP. 

Defines  the  sequential  data  set  accessed  by 
QUIP  in  source- direct  node. 

Defines  a printer  output  data  set. 

Defines  a temporary  data  set  containing  those 
data  records  qualified  by  QUIP  in  source  direct 
■ode. 

Defines  a temporary  data  set  containing  the  sort 
keys  generated  by  QUIP  for  those  data  records 
which  qualified  in  source  direct  node. 

Defines  work  areas  used  by  the  internal 
QUIP  sort  when  in  source  direct  node. 


ABEND  duip  printer  output. 

Defines  a printer  output  data  set  used  for 
source  listings. 


i 


I 
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SYSIN  Defines  the  QUIP  source  statement  input.  This 

statement  must  be  supplied  by  the  user  when  QUIP 
is  run  in  the  batch  partition.  It  is  coded  as 
//QUIP. SYSIN  DD  *. 


JOB  PREPARATION 


Procedure:  XDHPLIB 

STEPCAT  Defines  the  NIPS  user  catalog  for  VSAN 

processing. 

STEPLIB  Defines  the  NIPS  systea  library. 

SYSPRINT  Defines  a printer  output  data  set. 

S YSUDUMP  ABEND  duap  printer  output. 

DATAFILE  Defines  an  indexed  seguential  data  set. 

ISAHHORK  Defines  a temporary  ISAM  data  set  containing 

the  PPT  and  logic  statement  library  during 
sequential  file  processing. 

SAHFILE  Defines  the  sequential  data  set  to  be  processed 

by  UTDMPLIB. 


SYSIN  Defines  the  input  source  control  card  for 

UTDMPLIB.  This  statement  must  be  supplied 
by  the  user  as  //UTDNP. SYSIN  DD  *. 


JOB  PREPARATION 

Procedure:  XSUBCHK  (Subroutine  Check) 

STEPLIB  Defines  the  NIPS  systea  library. 

S YSUDUNP  ABEND  dump  printer  output. 

S YSPRI NT  Defines  a printer  output  data  set. 

SYSOUT  Defines  a printer  output  data  set. 

SLIB  Defines  user  and  systea  libraries. 

SYSIN  Defines  the  input  source  deck  and  aust  be 

supplied  by  the  user  as  //SUBCHK. SYSIN  DD  *. 


JOB  PREPARATION 


Procedure: 

STEPCAT 

STEPLIB 

SYSPRINT 

SYSUDJHP 

DATAFILE 

SAMFILE 

UTSAMOUT 

SYSIN 


XCLASS  (File  Classification  Change) 

Defines  the  NIPS  user  catalog  for  VSAM 
processing. 

Defines  the  NIPS  systea  library. 

Defines  a printer  output  data  set. 

ABEND  duap  printer  output. 

Defines  the  ISAM  data  file  to  be  processed. 

Defines. the  sequential  data  set  to  be  processed. 
This  will  be  both  the  input  and  output  data  set 
for  sequential  processing  on  disk. 

Defines  the  output  sequential  data  file  that  is 
produced  when  tape  input  is  used. 

Defines  the  CLASS  source  input  card.  This 
stateaent  must  be  supplied  by  the  user  as 
//CLASS. SYSIN  DD  *. 
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Procedural  XOTFSCAN  (Field  Scan) 

STEPCAT  Defines  the  NIPS  user  catalog  for  VSAH 

processing. 

SYSPBIMT  Defines  a printer  output  data  set. 

SYSUDOHP  ABEND  duep  printer  output. 

DATAFILE  Defines  the  ISAM  data  file. 

SAHFILE  Defines  the  SAN  data  file. 

IS ANHOBK  Defines  teeporary  ISAM  data  set  if  a SAN 

data  file  is  input. 

SYS0T2  Defines  partitioned  data  set  containing 

• eeabers  to  be  scanned. 

TBANST  Defines  the  data  set  for  output  trans- 

actions. 

SYSIN  Defines  input  streae.  This  card  aust  be 

supplied  by  the  user  as  //UTF. SYSIN  DD  *. 

SOOBCPRT  Defines  a printer  output  data  set. 

SOUBCLIB  Defines  a library  used  to  store  source 

aaterial. 


SYSIN  Defines  the  input  to  the  UTSOORC  utility. 

This  is  not  overridden  if  a LIST  operation 
is  desired.  This  stateaent  is  overridden 
if  library  update  is  to  be  perforaed. 
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Procedure: 

XSP  (Index  Specification) 

STEPCAT 

Defines  the  NIPS  user  catalog  for  VSAH 
processing. 

STEPLIB 

Defines  the  NIPS  systea  library. 

NEWFILE 

Defines  the  indexed  sequential  data  file  created 
during  an  ?H  run. 

- 

XINDEX 

Defines  the  Index  Data  Set. 

< 

SORTHKOI 

Defines  the  S/360  Operating  System's  Sort 

through 

SORTWK06 

work  data  sets. 

SORTLIB 

Defines  the  s/360  Operating  System's  Sort 

Library. 

) 

* 

SYSOUT 

Defines  a printer  output  data  set  for  Sort 
messages. 

SYSPRINT 

Defines  a printer  output  data  set. 

SOU  RCPRT 

Defines  a printer  output  data  set  for  Index 
Specification  messages. 

i 

SYSUDUMP 

ABEND  dump  printer  output. 

SLIB 

Defines  the  user  library  containing  subroutines/ 
tables. 

i 

SAMFILE 

Defines  a sequential  data  file 

UTS ABOUT 

Defines  the  updated  sequential 

• 

data  file. 

ISAHMORK 

Defines  the  temporary  ISAPI  data  set  containing 
the  FFT  during  sequential  file  processing  in 

* ] 

Index  Specification. 

1 

JOB  PREPARATION 


Procedure:  XTRDISK  (Index  Transfer  - Unload)  ' 

STEPCAT  Defines  the  NIPS  user  catalog  for  VSAH 

processing. 

STEPLIB  Defines  the  NIPS  syste*  library. 

< 

SYSPRINT  Defines  the  printed  output  of  XTPDISK.  Contains 

any  diagnostic  nessages. 

S YSUDUNP  ABEND  dump  printer  output. 

( 

INDEXSAN  Defines  the  output  sequential  Index  Data  Set.  1 

INDEXDAM  Defines  the  input,  direct  access,  dish-resident  ; 

Index  Data  Set. 

i 

DATAFILE  Defines  the  ISAM  data  file  corresponding  to 

the  index  data  set. 

J < 

SAMPILE  Defines  the  sequential  access  data  file  . 

corresponding  to  the  index  data  set.  ■ 


JOB  PREPARATION 


LLQced^e: 

STEPLIB 

SYSPRINT 

SYSUDUNP 

INDEXSAN 

XINDEX 


XTRTAPE  (Index  Transfer  - Load) 

Defines  the  NIPS  systea  library. 

Defines  the  printed  output  of  XTRTAPE.  Contains 
any  diagnostic  aessages'. 

ABEND  duap  printer  output. 

Defines  the  input,  sequential  version  of  an 
Index  Data  Set. 

Defines  the  output,  disk-resident,  direct  access 
Index  Data  Set. 
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££2cedu£g: 

STEPCAT 

STEPLIB 

DATAFILE 

SAHFILE 

SLIB 

SYSPBINT 
SOUBCLI B 
SOOHCPHT 

SYSUDUHP 

SYSOUT 

SORTLIB 

SORTHK01 

thru 

SORTWK04 

KANHK01 

KMDPRT 

SYSIN 


XK A (Keyword  Analysis) 


Defines  the  NIPS  user  catalog  for  VSAM 
processing. 

Defines  the  MIPS  system  library. 

Defines  the  indexed  sequential  data  file 
to  be  analyzed. 

Defines  the  sequential  data  files  to  be  analyzed. 

Defines  the  user  library  containing  subroutine 
and/or  tables. 

Defines  a printer  output  data  set. 

Defines  a library  us  to  store  source  material. 

Defines  a printer  output  data  set  used  for 
source  listings. 

Defines  a printer  output  data  set  for  ABEND 
dump  output. 

Defines  a printer  output  data  set  containing 
S/360  sort  messages. 

Defines  the  S/360  Operating  System  sort  library. 
Defines  the  work  data  sets  used  by  S/360  sort. 


Defines  a temporary  work  data  set. 

Defines  a printer  output  data  set. 

Defines  the  input  user  control  statement  data 
set  for  UTNDXKAN.  This  statement  must  be 
supplied  by  the  user  as  //XRA.STSXN  DD  *. 


JOB  PREPARATION 


£lficedu£§: 

STEPLIB 

SYSUDUHP 

SNAPSHOT 

SOURCPRT 

ODDPRT 

SYSPRINT 

SLIB 

SOURCLIB 


XOTODE 

Defines  the  NIPS  systea  library. 

Defines  a printer  output  data  set  for  ABEND. 

Defines  a printer  output  data  set  for  debug. 

Defines  a printer  output  data  set  for  source 

listings. 

Defines  a printer  output  data  set  for 
diagnostics. 

Defines  a printer  output  data  set. 

Defines  the  library  where  the  user  conpiled 
fora at  will  be  stored. 

Defines  a library  used  to  store  source 
■ ater  ial. 


126 


JOB  PREPARATION 


££2£edji£e: 

STEPLIB 

SLIB 

KH0WK01 

thru 

KMDNK04 

KMDPRT 

S YSOUT 

SYSPFI NT 

SORTLIB 

SOBTWKOI 

thru 

SORTWK06 

SYSUDUMP 

SYSIN 


UTNDXKMD 

Defines  the  NIPS  Systen  Library. 

Defines  the  user  library  containing  tables. 
Defines  UTNDXKMD  work  data  sets. 

Defines  message  and  display  device,  UTNDXKMD. 
Sort  nessage  output  device. 

Printer  output  device. 

S/360  OS  Sort  Library. 

Sort  work  data  sets. 

ABEND  dump  device. 

SYSIN  device. 
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NIPS  360  Ft;S 


PROCEDURES 


li 


//XCLASS  PROC  A-A,BSZFILE-,BSZNENF*, 

//  CL*' • **CL l**,  * ,OEN«, ISAM«»OUMMY.FILE*  , 

//  JOBLIB*'FFS.JOBLIB' , L AB*SL ,ND ISP-KEE P .RGN-60K, 

//  PTFJOBL**PTF. JOBL IB • » 

//  SAM«' DUMMY. FILE • , SAMOUT  »• DUMMY  » * * TRCH* , 

//  UI SAM*2314,USAM,»  ( TAPES, ,OEFER) • , 

//  VISAM», VSAP*,VSMOUT* 

//* 

//*  CHARLES  W.  HICKISCH  MAJOR, USA  PROJ  C0DE*763NIPS  BRANCH*43i 

//•  DATE-MARCH  1,1974 

//* 

//CLASS  EXEC  PGM*UTCLASS,REGICN*GPGN 

//STEPLIB  00  DSN*£PTFJOBL ,DISP*SHR 
//  DO  DSN*£JOBLlB,DISP*SHR 

//SYSPRINT  DO  SYSOUT*(£A, £CL ) 

//SYSUDUMP  DO  SYS0UT*(£A,£CL1I 

//OATAFILE  DD  DSN*£ I SA *, UNI T*£UI SAM, VOL-CVI SAM, 01 SP* SHR 
//SAMFILE  OD  DSN*£SAM.S,UNIT*£USAM,VOL*£VSAM,DISP*(SHR,KEEP), 

//  DCB*!RECFM*VB,LRECL-IOOO.BLKSIZE*£BSZFILE,TRTCH*£TRCH, 

//  DEN*£OEN) .LABEL*' ,£LAB» 

//UTSAMnur  DO  £SAMOUT.DCB*(RECFM*VB,LRECL*lOOO,BLKSI2E*£BSZNEWF, 

//  TRTCH*£TRCH,OEN*£OEN),DISP*< ,£NOISP» , LABEL*!  , SLAB  I , 

//  UNIT*£USAM,VOL*£VSMCUT 


00000100 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

ocoouoo 

00001200 

00001300 

00001400 

00001500 

00001600 

00001700 

00001800 

00001900 

00002000 

00002100 

00002200 

00002300 


J 
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NIPS  360  FFS 


PROCEDURES 


//XDMPLIB  PROC  A»A  , B SZF I LE* » 

//  CL-', ’.CLl*'.' ,DEN-, I SAM* 'DUMMY. FILE', 

//  JOBLIB**FFS.JOBLIB' . LAB-SL , RGN-60K , 

//  PTFJOBL*'PTF.JOBLIB' , 

//  SAN*'OUMMY.FILE', STG*N IPM  »TRCH* , 

1 1 U I SAM**  ( 23 14 , P)  ',USAM«MTAPE9,, DEFER  >•  , 

//  VISA M*  , VS  A M= 

//♦ 

//*  CHARLES  W.  HICKISCH  MAJOR, USA  PRCJ  C00E=763NIPS  BRANCH  431 

//*  DATE*MARCH  1,1974 

//♦ 

//UTOMP  EXEC  PGM*UTDMPLI8,REGI0N*£RGN 
//STEPLIB  DD  DSN«£PTFJOBL,DISP*SHR 
//  DD  DSN*£JOBLIB,DISP*SHR 

//SVSPRINT  00  SYSOUT*(£A,CCL) 

//SYSUDUMP  00  SYSOUT*{ GA , GCL 1 ) 

//DATAFILE  00  0 SNANE *£I SAM, UNI T*£UI SAM, VOLUME *£V l S AM,D I SP* SHR 

//ISAMWORK  DD  UNIT»CSTG,DC B*OSORG* I S, SPACE* (CYL , < 10 > ) 

//SAMFILE  DO  DSNA ME* £S A M.S, UNI T»£USAM, VOL UME*t VSA M , 0 1 SP*( SHR, KEEP 
//  LABEL* ( ,£LABI ,DCB-I RECFM-VB, LRECL* 1000, BLKS I ZE*£BSZF 

//  TRTCH*£TRCH,DEN*£DEN) 


00000100 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 
00001800 
),  C00001900 

I LE • 00002000 
00002100 


r 

NIPS  360  FFS  PROCEDURES 

j 

//XFM  PROC 

A-A, AUXBUFN»2,AUXSP«6,BLKSI2E«560,B»B, 

00000100 

// 

VSDSN-*DUMMY.FILE • tNENVSM-'DUMMY.F I LE • , 

00000300 

// 

BSZF ILE-, BSZNEWF-, 

X00000500 

// 

CL-* , SCLl-', ',CL2-' .CYLOFL-I.DEN-, 

00000600 

// 

EPOP  T-ABE , GEN- 'DUMMY , • , 

00000700 

// 

INDEX-1,  I SAM-' DUMMY. FILE* , 

00000800 

// 

INXSP»1,J0BLIB»'FFS. JOBLIB* , JCBMAC-'FFS. JOBMACRO', 

00000900 

// 

LAB-SL.LIB-'OUMMV.FILE' ,L IB l-' DUMMY. FILE*, 

X00001000 

// 

MC  TS  P-5, NBRBLK -200,0 VFLOH-1 ,PR I ME-5 .RGN-98K, 

00001100 

// 

PTFJOBL-'PTF. JOBLIB '.PTFJOBM-' PTF. JOBMACRO* , 

00001200 

// 

SAM- 'DUMMY. FILE' .SAMOUT- 'DUMMY,', SOI SP-SHR.S0RTSP-10, 

00001300 

// 

SO URC L- 'DUMMY. F ILE ' , STG-NI PM ,TDI SP-MOO, TRANS- • tCTRANS* , 

00001400 

// 

TRANSP-200, TRBUFNO-4 , TRCH- ,U I SAM-'I2314,PI', 

00001500 

// 

UL IB-2314, ULI81-2314,USAM-» I TAPE9 , .DEFER  I • , 

00001600 

// 

USOURCL-2314, UTRANS-NI PR,VINOEX-'REF=*.OATAFILE' , 

00001700 

// 

VISAM-,VLIB«»VLIBl-, VOVFLOR- ' REF- •.DATAFILE' , 

00001800 

// 

VPR IME-'REF-*.DATAFILE',VSAM-,VSMMC T- , VSMOUT- .VSOURCL-, 

00001900 

, 

// 

VTRANS-,XD!SP«SHR,XI NDEX* 'DUMMY. F ILE', 

00002000 

// 

X UN  IT-2314, XVOL- 

00002100 

//* 

00002200 

//*  CHARLES  W.  HICKISCH  MAJOR, USA  PROJ  C0DE-763NIPS  BRANCH-431 

00002300 

//•  OATE- 

MARCH  1,  1974 

00002400 

//• 

00002500 

//FM  EXFC  PGM-FM, REG ION-CRGN 

00002600 

J 

//STEPLIB  DD  DSN-CPTFJOBL  »DISP-SHP 

00002800 

//  OD 

OSN-t JOBLIB, DISP-SHR 

00002900 

//FMSTAT 

DD  SYSOUT-I CA.CCL) 

00003000 

1 

//SVSOUT  OD 

SYSOUT -(CA.CCL) 

00003100 

//SVSLIST  00  SVSOUT- IGA.CCL) 

00003200 

//SOUKCPRT 

DO  SYSOUT-I CA.CCL) 

00003300 

//SVSUDUMP 

DO  SYSOUT-I CA , CCL 1 ) 

00003400 

//SYSPRINT 

DD  SVSOUT -I CA  , CCL2 ) 

00003500 

//VSMFILE 

DD  DSN-CVSDSN.DI SP-SHR 

00003600 

//NEWVSM 

OD  DSN-CNE  MVSM.DI SP-SHR 

00003700 

//DATAFILE 

DO  OSNAME-CI S AM, UN IT-GUI SAM, VOLUME-CV I SAM.DI SP- SHR 

00003800 

//NEWFILE  DO  6 GEN .DC B- ( DSORG- 1 S, CVLOF L-6CYL0FL , BLKS I ZE-CBS/NEWF 1 , 

X00003900 

// 

01  SP- 1, KEEP .DELETE) , SPACE  - 1C YL ,GI NDEX ) , 

X 00004000 

// 

DSNAME-CI SAM. A I INDEX) , UNI T-CUI SAM, VOL UME-CVI NDEX 

00004100 

//  DO 

CGEN. DCB- *. NEWFILE, SPACE- 1C YL.CPRI  ME ) , 

X00004200 

// 

DSNAME-CI SAM. A( PR IME ) , UNI T-CUI SAM, VOLUME-CVPRI ME , 

X00004300 

// 

DISP-I .KEEP, DELETE) 

00004400 

//  OP 

CGEN. DCB-*. NE MF ILE, SPACE-ICYL .COVFLOW) , 

X 00004500 

// 

DSNAMF-CISAM.AIOVFLOM) , UNI T-CUI SAM, VOLUME-CVOVFLOW, 

X00004600 

// 

DISP-I, KEEP, DELETE) 

00004700 

t 

// FMCOMM 

DD  UNI T-CSTG, SPACE-1 TPK,I 1,1) ) 

00004800 

//FMFLUD 

DD  UN I T-CSTG, SPACE-1 CYL , 1 CMCTSP, 5) ) 

00004900 

$ 

//FMTRANS 

DD  UNIT-CSTG.SPACE-ICYL, tCAUXSP,5J ) »DC B- BUF NO- CT R BUF NO 

00005000 

//FMLABELS 

DD  UNIT-CSTG.SPACE-ICYL, 11,1)) 

00005100 

// FMCM 

00  UNIT-CSTG, SPACE-1 TRK,I20«S)) 

00005200 

//FMCMFILE 

00  UNIT-CSTG, SPACF-ITRK, 120, 5)) 

00005300 

//FMLITFIL 

DD  UNI T-CSTG, SPACE-1 TRK, 120,5)) 

00005400 

//SYSLIB  DO 

DSN-CPTFJOBM, DISP-SHR 

00005500 

//  DO 

DSN-CJOBMAC, 01 SP-SHR 

00005600 

// 

DD  OSNAME- SYS l.MACL I B ,QI SP-SHR 

00005700 

//FMLEIN 

DO  UNI T-CSTG, SPACE-ITRK, 125,5) ) 

00005800 

• - 1 ' 

//SVSLMOO 

DO  UNI T-CSTG, SPACE- 1C VL, 14, 1,10)) ,0CB-SYS1.LINKL IB, 

X00005900 

■v 

I 

Li 

* . 

// 

LABEL -EXPOT-66366 
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//TEMLSREC  00  UNIT-£STG,SPACE-(TRK,  120,51) 

//SORTLIB  00  DSNAME-SYS1. SORTLIB, OISP-SHR 

//SORT  IN  DD  UNI T-ESTG, SPACE- 1 TRK, ( £TRANSP . 150  I » ,OCB-BUFNC»CTRBUFNO 
// SORTWKO I DD  $P ACE «( CYl . I £ SORTSP » . , CONT IG) .UNIT- ( £STG, SEP- SORT  IN) 
//SORTWK02  00  SP ACE-( CYL  , ( £SORTSP I , , CONTI G» , 

//  UNIT-(CSTG,SEP-SCRTWK01) ,SEP-SORTWK01 

//SORTWK03  00  SP ACE-( CYL  » (£ SORTSP I . .CONT IG I . 

//  UNIT-ICSTG, SFP-S0RTWK02 ) .SEP-SCRTWK02 

//SORTWK04  DD  SP ACE *1 CYL . I £ SORT SPI , . CONT IG ) , 

//  UN  I T* ( E STG*  SEP* ( SORTWKOl * S0RTWK03 I I , 

//  SEP* ( SORTWKOl , SOR  TWK03 ) 

//SORTWK05  DO  SPACE*(CYL.(£SCRTSPI» .CCNTI GI . 

//  UNIT-(CSTG,SEP-(S0RTWK02,SCRTWK04) I , 

//  SEP*C  SORTWK02 * S0RTWK04 ) 

//S0RTWK06  DD  SP ACE *( CYL .( £SORTSP ), .CONT ICi . 

//  UNIT*|£STG,SEP*I SOR  TWKOl * S0RTWK03 »S0PTWK05)) , 

//  SEP-($ORTWK01*SORTWK03*SORTWK05) 

//SORTOUT  OD  DISP* (OLD, PASS) .DSNAME-*. SGRTI N, VOLUME-REF** .SORT  I N , 

//  0CB-(LRECL-1500*BLKSIZE-1504,RECFM»VB, BUFN0*2 ) 

//FMLEFILE  OD  OSNAME-*. S OR TWK 04, VOLUME -REF-*. SORT WK 04 *DISP-IOLO, PASS) 
//FMMACRO  DO  OSNAME-*. SOPTWK05 , VOLUME-REF-*. SGRTWK05 ,D I SP*( OL 0, PASS ) 
/ / FMOUTMAC  OD  OSNAME-*. SCRTWK06, VOL UME*REF-P. SORT WK06 ,0!SP*<  OLO, PASS) 
//TAPEIN  00  DSNAME**.SCRTIN,VOLUME*REF*P.SORTIN,DISP*( OLD, PASS) 
//TAPEOUT  00  DSNAME-*. SORT  I N, VOLUME *REF*». SORT  IN, DISP* (OLO, PASS), 

//  DCB»(LRECL«1500,BLKSI2E*1504,RECFM*VB) 

//RECSIN  DO  OSNAME**. FMFLUO, VOLUME -REF-P.FMFLUD ,0 1 SP* ( OLD, PASS) 
//RECSOUT  00  OSNAME**. RECSIN, VOLUME-REF**. RECSIN, DISP*(OLD, PASS)  , 

//  DC8*(LRECL*1000,BLKSIZE*1004,RECFM*VB) 

//RECSMK01  00  OSNAME**. SORTWKO l, VOLUME -REF**. SORTWKO l ,0 ISP- (OLO, PASS) 
//RECSWK02  00  OSNAME**. SORTWK02 , VOLUME-REF-*. SORTWK 02, 0 ISP- ( CLO , PASS  I 
//RECSWK03  00  DSN AME-*. S0RTWK03, VOLUME -REF-*. SORT WK03.0  ISP- (OLO, PASS) 
//RECSWK04  00  OSNAME -*. S0RTWK04 , VOLUME-REF-*.SORTWK04 , 01 SP-( OLD, PASS ) 
//RECSWK05  DO  OSNAME -*.SORTWK05, VOLUME-REF-*. SORT WK05,DISP-< OLO, PASS) 
//RECSWK06  DO  OSNAME-*. S0RTWKC6, VOLUME-REF- *.S0RTWK06 ,0  I SP- { CLO, PAS S ) 
//TRANS  DO  DUMMY ,01 SP-0L0,0CB-( E ROPT-CFROPT ,BUFNP-£TRBUFN0) 
//FMSETTBL  DO  UN  I T- CSTG, SPACE- ( TRK , ( l , I ) ) 

// FMAUXOP  00  OSN-*. FMTR ANS, VOLUME-REF-*. FMTRANS.O ISP* (OLO, PASS), 

//  DCB-( LRECL -1 000, BLKSI ZE -1 004 ,BUFNO*  CAUXBUF  N) 

//PUNCH  00  SY SOUT«£B , OC6-6UFNO-CAUKBUFN 

// AUK1  00  OUMMY,OCB-(RECFM-VB, BLKSI ZE-1004, LRECL- 1000, BUFNO-£AUXBUFN» 
// AUX2  00  OUMM V,0CB-(RECFM-VB, BLKSI ZE-1004, LRECL- l 000, BUFNO-£AUXBUFN) 
// AUX3  00  DUMMY, DC B- (R ECFM-VB, BLKSI ZE-1004, LRECL-1 000, BUFNO-CAUXBUFN I 
// AUX4  DD  DUMMY, OCB-(R ECFM-VB, BLKSI ZE-1004, LRECL-1 000, BUFNO-EAUXBUFN) 
// AUX5  00  DUMMY, DCB-IRECFH-VB.BLKSIZE *1004, LRECL-l 000, BUFNO-EAUXBUFN) 
//FMTAUX  00  UNIT-ESTG, SPACE- ( TRK, (10, S)) , DC B- BUFNO-CAUXBUFN 
//SUB  DO  OSNAME-*. SYSLMOD,DISP-(OLD, PASS)  , VOLUME-REF-*. SYSLMOO 

//  DO  DSNAME-EL IB.L, UN  I T-EUL IB , VOLUME -£VL IB.DISP-SHR 
//  DO  DSNAME-EL IB l.L .UNIT-CULI B1 , VOLUME-6 Vt I 61 , DI SP-SHR 
//  DO  OSNAME-E JOBL IB ,0 1 SP-SHR 

//SOURCLIB  OD  D I SP-E  SOI SP.OSN- ESOURCL. L , VCL-EVSOURCL , UNI T-EUSOURCL 
//OMMACS  DO  UNIT-ESTG, SPACE-ICVL, (5,11) 

//GENFILE  00  UNIT-ESTG, SPACE-I CYL, I 3,1)) 

//LITFILE  00  UNIT-ESTG, SPACE -I CYL •< 3, 11 ) 

//EOITFILE  DO  UN  I T-ESTG  .SPACE- (CYL, 1 3, 1) I 
//FMNFLUD  DO  UN IT-CSTG , SPACE-1 CYL ,( 5, 1 ) ) 

//FMTEFILE  00  UN  I T-E STG.SP ACE- (TRK, ( 5, 1 ) ) 

//FMAEFILE  00  UNI T-ESTG , SPACE- I TRK, (5 , 1 ) ) 
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00006100 
00006200 
00006300 
00006400 
X 00006SOO 
00006600 
X00006700 
00006800 
X00006900 
X00007000 
00007100 
X 00007200 
X00007300 
00007400 
X00007500 
X00007600 
00007700 
*OOOC7BOO 
00007900 
00008000 
00008100 
00008200 
00008300 
*00008400 
00008500 
00008600 
X00008700 
00008800 
00008900 
00009000 
00009100 
00009200 
00009300 
00009400 
00009500 
00C09600 
00009700 
00009800 
0000 9900 
00010000 
00010100 
00010200 
00010300 
00010400 
00010500 
00010600 
00010700 
00010800 
00010900 
00011000 
00011100 
00011200 
00011300 
00011400 
00011500 
00011600 
00011700 
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//FMSODANQ  00  D I SP -SHR , OSNAME- C I SAM.O, VOLUME-REF-*. STEPL I B 
//NFLERR  DO  OSNAME »*. S0RTWK06, VOLUME -REF-*. SORTWK06,0I SP- ( MOD, PAS S) 
//NFLMACS  00  DSNAME-*.SCRTMK03,VOLUME-REF«*.SORTWK03,OISP«( OLD, PASS) 
// ASSEM IN  00  OS  NAME-*. FML l TF I L, VOLUME-RE F«*.FMLITFIL,D ISP- (OLD,  PASS) 
//  DD  DSNAME-*.S0RTWK06»VOLUME«REF«*. S0RTMK06  »DISP-(OLD»PASS) 

//ISAMMORK  00  UNIT-tSTG,DCB-OSORG-IS,SPACE-(CYL,( 101 ) 

//SAME ILE  00  DSNAME«tSAM.S,UNIT»CUSAM,VOLUME»CVSAM,DISP«(SHR,KEEP) , 

U LA  BE  L = < , CL  AB)  , CCB- ( REC F M« VB , LRECL- 1000 , BLKS IZ E-C BSZ F l LE , 

//  TRTCH-CTRCH.DEN-GDEN) 

//FMSAMOUT  00  GS AMOUT .DCB-( RECF M- VB, LRECL- 1000, BLK S IZE-GBSZNEWF , 

//  DEN»GOEN,TRTCH»GTRCHI,DISP«(NEw,KEEP) , 

//  L ABFL  »( i CL AB ) • 

//  UNIT-6USAM,VnLUME-(PRIVATE,RETAIN,6VSM0UT) 

//FMNDATA  00  GS AMOUT. DCB-*. FMSAMOUT ,0 I SP- ( .KEEP ) , L ABEL»( , CL AB ) , 

//  UNIT-CUSAM,VOLUM£-(PRI VATE ,RE TA IN, CVS MMC T) 

//STAT  00  DSN-* .FMCM, VQL— REF-*.FMCM ,01 SP* (OLOtPASS) 

//TRANST  00  DSN«CTRANS,VOL-GVTRANS,UNlT«CUTRANS,DISP-GTD!SP, 

//  SPACE-ITRK,  1) 

//  INOEXPRT  00  SY$OUT«(GA,CCL) 

// IXTRANS  DO  DISP-(NEN, PASS)  ,UNIT-CSTG,SPACE-(CYL,UINXSP,  1)1 
//X  INDEX  DD  DSN-CX I NDE  X.  X ,DI SP-I GXD I SP .KEEP ) ,UNI T-CXUNI T ,VOL-GX VOL . 

//  DCB-IBLKSIZE-C8LKSIZE«RECFM-F,KEYLEN*6,0SCRG«DA), 

//  SPACE-(CBLKStZE.CNBRBLKl 


OOOUBOO 
00011900 
00012000 
00012100 
00012200 
00012300 
X00012600 
X00012500 
00012600 
X0001 2 700 
00012800 
00012900 
00013000 
X00013100 
00013200 
00013300 
00013600 
00013500 
00013600 
00013700 
00013800 
XOOOl 3900 
00016000 


i 


k 
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//XFMEX  PROC 

A* A, AUX8UF N-2,AUXSP»6,B-B,BLKSIZE-560, 

00000100 

! // 

BSZFILE-.BSZNEWF-, 

X00000200 

// 

CHKDSP- DELETE  .CHKID-' CCCHK ID* .CHKSP-O, 

00000300 

// 

CHKST-NEW.CL-* , »,CL1-* ,• ,CL2-* ,* ,DEN- , EROPT- ABE, 

00000400 

II 

INXSP-1,1 SAM-'OUMMY.FILE* , JOBL IB-* FF S. JOBLIB* , 

00000500 

II 

LAB-SL, LI B-'OUMMY. F ILE •, LI BI-* DUMMY. FILE* , 

X00000600 

// 

MCTSP-5,NBRBLK-200,NRMDSP-DELETE,RGN-98K, 

00000700 

n 

PTFJOBL-'PTF. JOBLIB*, 

00000710 

n 

SAM* • DUMM Y . F I L E • , SA  MOUT* • OUMM Y , • , SOR  T S P- 1 0 , 

00000800 

\ u 

STG-NIPW,  TD ISP-MOD, TRANS-*  CCTRANS* , 

00000900 

\ // 

TRANSP-200,TRCH-,UCHK-NIPW,UISAM-*  I2314.P)* , 

00001000 

u 

UL  I B*  2314,  UL  IB  1*2314,  USAM-MTAPE9,  .DEFER)*  , 

00001100 

u 

UTRANS-NI PM , VCHK-, VI  SAM*, VLI B* , VL I Bl* , 

00001200 

n 

VSAM* , VSMMCT* ,VSMOUT*,VTRANS*, 

00001300 

t! 

XD I SP*SHR , XINOEX* • DUMMY. F ILE* ,XUNI T-2314,XV0L» 

00001400 

//* 

00001500 

1 //*  CHARLES  W 

. HICKISCH  MAJOR, USA  PROJ  C00E*763NIPS  BRANCH-431 

00001600 

[ //*  DATE 

•MARCH  1,  1974 

00001700 

//• 

00001800 

f //EM  EXEC 

PGM»FM,RE  G 10N-CRGN 

00001900 

//STEPLIB 

DD 

DSN-CPTFJOBL ,DI SP-SHR 

00002000 

// 

OD 

DSN-£JOBLIB,DISP-SHR 

00002010 

//FMSTAT 

DD 

SYSOUT-ICA.CCL) 

00002100 

S //SVSOUT  DD  SYSOUT- I LA • CCL ) 

00002200 

) 

//SYSUDUMP 

DD 

SYSOUT  - I CA , CCL 1 ) 

00002300 

/ 

//SYSPRINT 

DD 

SYSOUT  - I GA , CCL2 ) 

00002400 

//SOURCPRT 

DD 

SYSOUT  - 1 CA  , CCL  ) 

00002500 

//DATAFILE 

DO 

OSNAME- CIS AM, UN IT-GUISAM, VOLUME-CV I$AM,OI$P*SHR 

00002600 

//FMCOMM 

DD 

UNI T-CSTG, SPACE* 1 TRK,(1,1I) , 

X00002700 

// 

DI SP*( » CNRMOSP, CCHKDSP ) .OSNAME* CCHK I D. A 

00002600 

//FMFLUD 

DD 

UN  IT-CSTG.S PA CE-ICYL, (CMCTSP.5) ) , 

X00002900 

// 

OISP-4 , CNRMOSP, CCHKDSP) .DSNAME-CCHK I D.B 

00003000 

//FMTRANS 

DD 

UNI T-CSTG, SPACE* IC YL , C CAUXSP , 5)  1 , 

X000031 00 

// 

DISP-l .CNRMOSP, CCHKDSP ), DSNAME-CCHK ID. C 

00003200 

//SYSLMOD 

DD  L ABEL-EXPDT-66366, SPA CE-ICYL,! 4.1,10) ) .OCB-SYSl.L INKL IB.  X00003300 

// 

UNI T-CSTG, DSNAME-CCHK 10. D,D ISP- I, CNR MDS P , CCHKDSP 1 

00003400 

//SORTLIB 

00  DSNAME-SYSl.SORTLIB.DISP-SHR 

00003500 

//SORTIN 

DD 

UNIT-CSTG, SPACE- ( TRK.ICTRANSP.150) I , 

X00003600 

// 

DISP-I .CNRMOSP, CC HKD SPI ,0 SNAME-CCHKI D. E 

00003700 

//SORTWKOl 

DD 

SP ACE-I C YL , ( CSORTSP ) , , CONT I G ) ,UNI T- ( CSTG, SEP- SORT  INI 

, X00003800 

// 

DI SP-I .CNRMOSP  .CCHKDSP ) .OSNAME-CCHKID.F 

00003900 

//S0RTMK02 

DD 

SPACE -I CYL, I CSORTSP 1 ,,CONTIGI. 

X00004000 

// 

OISP-I .CNRMOSP, CCHKOSP) .OSNAME- CCHKI O.G , 

X00004 100 

, // 

UN  IT- ( CSTG, SEP-SORTMKOl > , SEP-SORTWKOl 

00004200 

// S0RTMK03 

DO 

SPACE-ICYL  , (CSORTSP) ..CONTIG), 

X00004300 

// 

DISP-( .CNRMOSP, CCHKOSPI , OS NAME -CCHKI D.H, 

X00004400 

// 

UNI T-l C STG, SEP-SORTMK02 1 , SEP-S0RTMK02 

00004500 

• 

//S0RTMK04 

OD 

SPACE-ICYL, (CSORTSP) ..CONTIGI  , 

X00004600 

l // 

DI SP-I, CNRMOSP, CCHKDSP I ,DSNAME- CCHKID. I , 

X00004700 

// 

UNlT-(CSTG,SEP-(SORTMK01,S0RTMK03) ) , 

X00004800 

// 

SEP- ( SORTMKOl .SORTMK03 ) 

00004900 

//SORTWK05 

OD 

SPACE-ICYL  .(CSORTSP), .CONTIG), 

X00005000 

. // 

DISP-I, CNRMOSP, CCHKOSP) , DSNAME-CCHK ID. J, 

X000051 00 

// 

UN  1 T- ( C STG , SEP-  ( SOR  TWK 02 , SOR  T WK04 ) I , 

X00005200 

// 

SEP-I SORTHK02, S0RTWK04 ) 

00005300 

- ' //SORT  WK06 

OD 

SPACE-ICYL, (CSORTSP) ..CONTIG) , 

00005400 

// 

OISP-I .CNRMOSP, CCHKDSP) .DSNAME-CCHK IO.K , 

00005500 

| ^ 
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//  UNIT-(GSTG,SEP-(SORTWK01,SORTt(KO3,SORTWK05) I , 

//  SEP*( S0RTMK01 .SORTWK03,  SORTWK05) 

//SORTOUT  DO  DISP« (OLD, PASS) .DSNAME-*. SORTI N, VOLUME-REF-* .SORTI N, 

//  DC B«( LRECL- 1500  »BLKSI ZE-i 504 ,RECF  M-VB ) 

//RECSIN  DD  OSNAME-*.FMFLUO, VOLUME-REF-*. FMFlUD,DISP»(OLD, PASS) 
//RECSOUT  OD  DSNAME«*.RECSIN, VOLUME-REF-*. RECSIN,DISP»(OLD, PASS) , 

//  DCB-(LRECL-1000,BLKSI 2 E *1004  ,RECFM»  VB ) 

//RECSWK01  DD  DSN AME-* . S0RTWK01 , VOLUME-REF-*. SORTWKOl .0  ISP- ( OLD , PAS  $ ) 
//RECSWK02  DD  DSNAME-* . S0RTWK02, VOLUME-REF-*. SORTWK02 ,0 ISP- (OLD, PASS ) 
//RECSWK03  DD  DSNAME-*. SORTWK03, VOLUME-REF-*. SORTWK03 , D ISP- ( OLD , PAS S » 
//RECSWK04  OD  DSNAME-*. SORTWK04, VOLUME-REF-*. SORTWK04.0 I SP-( OLD, PASS) 
//RECSWK05  OD  DSNAME-* . S0RTWK05, VOLUME-REF- *. SORT WKO 5 »D I SP-( OLD, PASS) 
//RECSWK06  DD  DSNAME-*. S0RTWK06, VOLUME-REF- *. SORTWK06 ,DISP- ( OLD, PASS > 
//TRANS  DD  OUMMY .DISP-OLD, OCB-EROPT-CEROPT 
//FMS6TTBL  DD  UNI T-CSTG, SPACE- ( TRK , ( 1 , 1 ) ) , 

//  DI SP- ( « uNRMOSP » GCHKDSP ) .DSNAME-GCHKI D.L 

//FMAUXOP  DD  UN I T-CSTG, SPACE- (CYL , ( CAUXSP. 5) ) , 

//  DC  B- ( LRECL -1000, BLKS I ZE-1004 , BUFNO-CAUXBUFN) , 

//  DISP*(  .CNRMDSP, CCHKDSP) .OSNAME-CCHKIO.M 

//PUNCH  00  SYSOUT-CB.DCB-BUFNO-CAUXBUFN 

//AUX1  DD  DUMMY, DCB- (REC FM- VB,BLK SIZE -1 004, LRECL-1000, BUFNO-CAUXBUFN) 
// AUX2  DD  DUMMY, DC B-( REC FM-VB, BLKSIZE-1 004, LRECL-1 000, BUFNO-CAUXBUFN) 
// AUX 3 DO  DUMMY, DC B-IRECFM-VB, BLKSIZE-1 004, LRECL-1 000, BUFNO-CAUXBUFN) 
// AUX4  DD  DUMMY, DCB-( RECFM-VB.BLK SIZE-1004, LRECL- 1000, BUFN0-CAUXBUFN1 
//AUX5  OD  DUMMY, DCB-( RECFM-VB.BLK SIZE-1004, LRECL- 1000, BUFNO-CAUXBUFN) 
//FMTAUX  OD  UNI T-CSTG, SPACE- (TRK, (10, 5)), 

//  DCB-BUFNO-  CAUXBUF  N, 

//  DISP-I, CNRMDSP, CCHKDSP) .DSNAME-CCHKI 0. N 

//SLIB  DD  DSNAME»*.SYSLMOD,OISP«(OLO, PASS), VOLUME-REF-*. SYSLMO0 

//  DO  DSNAME-CL IB.L, UNI T-CUL IB , VOLUME- CVL IB.DISP-SHR 
//  DD  OSNAME-CLIBl.L.UNIT-CULlBl, VOLUME- CVL IB l ,DISP-SHP 
//  DD  DSNAME-C J08L IB,0 ISP-SHR 

//FMSODANO  OD  D ISP-SHR , OSNAME- Cl  SAM. 0, VOLUME-REF-*. STEPL I B 
//ISAMMORK  DD  UNI T-CST  G,DCB«DSORG-I S .SPACE -(CYL , ( 10) ) , 

//  DISP-(, CNRMOSP. CCHKDSP) .DSNAME-CCHK ID.O 

//SAMF ILE  DD  OSNAME-CSAM. S.UNI T- CUSAM, VOLUME-CVSAM.DI SP- ( SHR, KEEP ) , 


// 

// 

//FMSAMOUT  DD 
// 

// 

// 

//FMNDATA 
// 


DD 


LABEL-I ,CLAB) , DCB-( RECFM-VB, LRECL- 1000, BLKS I ZE-CBSZF IL E 
TR  TC  H-CTRC  HfDEN-CDEN) 

CSAMOUT . DC B- ( RECF M- VB, LRECL -1000, BLK SIZE- CBS  ZNEWF , 
DEN-CDEN.TRTCH-GTRCH), DISP-I NEW, KEEP) , 

LABEL-1 , CLAB  ) , 

UNIT-CUSAM,V0LUME-4PRIVATE,RETAIN,CVSM0UT) 

CSAMOUT .DCB-*. FMSAMOUT, 01 SP- ( .KEEP ) .LABEL-1 . CLAB) , 

UN IT-CUSAM, VOLUME -1  PR  I VATE.R ETA  IN. CVSMMCT ) 

//CHECKDD  DO  OSNAME-CCHKIO. DISP-ICCHKST. CNRMDSP. CCHKDSP) .UNIT-CUCHK, 

//  VOLUME-CVCHK,SPACE-(CYL.(CCHKSP,l) ) 

//STAT  DO  UNIT-CSTG,SPACE-(TRK,(20,5>) 

//TRANST  00  DSN-CTRANS, VOL- CVTRANS ,UNI T-CUTRANS ,0 1 SP-CTOI SP, 

//  SPACE-I TRK , I ) 

// INDEXPR  T OD  SYSOUT-( CA.CCL ) 

// IX  TRANS  DD  D ISP » (NEW ,PA SS) , UNI T-CSTG , SPACE-1CYL .( CINXSP. 1 ) ) 

//X  INDEX  DD  DSN-CXINDE  X.X,OISP-(CXD ISP, KEEP) ,UNI  T-CXUN I T , VOL-CXVOL  , 


// 

// 


DCB»( BLKS IZE-CBLKSI ZE .RECFM-F ,KEYL EN-4, DSORG-OA ) , 
SPACE-I GBLKSIZE , CNBRBLK ) 
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00005600 
00005700 
•000C5800 
00005900 
00006000 
X00006100 
00006200 
00006300 
00006400 
00006500 
00006600 
00006700 
00006800 
00006900 
X 00007000 
00007100 
X00007200 
00007300 
00007400 
00007500 
00007600 
00007700 
00007800 
00007900 
00008000 
X 00008100 
00008200 
00008300 
00008400 
00008500 
00008600 
00008700 
00008800 
X00008900 
00009000 
X00009100 
, X00009200 
00009300 
X00009490 
00009500 
00009600 
00009700 
X00009800 
00009900 
00010000 
00010100 
00010200 
00010300 
00010400 
00010500 
00010600 
00010700 
X00010800 
00010900 


NIPS  360  FFS 


PROCEDURES 


PROC  A*A,AUXSP-6,B-B,BLKSIZE*560.BSZFILE«.BSZNEMF«, 
VSDSN-' DUMMY.F 1LE • . VSOLDF- 'OUMMY. F ILF • , 
CL»',',CL1-',',CL2»',', 

DEN-, INXSP-i,ISAM«'OUMMY.F!LE' , 

JOBL IB* 'FFS. JOBL I B' , JOBMAC-' FFS. JOBMACRC • 
LAB-SL,LIB-'0UMMY.FILE',LIB1-' DUMMY. FILE*  , 
MCTSP«8,NEtaFFT-'DUMMY.FlLE*,N8RBLK-200, 

NEWUSAM-*  I TAPE*)  * .DEFER  ) ' * 

PTFJOBl-'PTF. JOBLIB' .PTFJCBM-'PTF.JOBMACRO', 

RGN-1 OOK* S AM* 'DUMMY.F I LE • , SORTSP-IO , STG-NI PW , 

TD ISP-MOO . TRANS-' CCTRANS* • TR  ANSP-200 ,TRANTYP» ISAM, 
TRCH-,UFFT-'12314,P)',UISAM-' I2314.P)' , 

UL  IB-23 14 .ULIBl-2314* 

USAM-'I TAPE9,,0EFER)' , UTRANS-Nl PW, VFFT-, VISAM-, 
VLIB-.VLIBI-, V$AM-,VSMMCT»,VSMOUT-,VSORT»'REF»*.SORT 
VTRANS-,XDISP-SHR,X INDEX- 'DUMMY. FILE' , 

XUN I T-2314,XV0L - 


CHAPLES  H.  HICKISCH 
DATE-MARCH  1,  1974 


MAJOR, USA  PRCJ  C00E-T63NIPS  BRANCH-431 


//  XF  R 
// 

// 

// 

// 

// 

// 

// 

// 

II 

n 
n 
n 
n 
u 
n 
n 

ii* 

//* 

//* 

//* 

//F R EXEC  PGM-FR.REG ION-CRGN 
// STEPLIB  DO  OSN-CPTF JOBL « DI SP-SHR 
II  DO  DSN-C JOBL I B,D I SP-SHR 

//SYSLIST  OD  SYS0UT-1CA.CCL) 

//SYSOUT  00  SYSOUT-ICA.CCL) 

//SYSUDUMP  DO  SYSOUT-I CA.CCLl) 

//SYSPRINT  DO  SYSOUT -I  CA  , CCL2) 

//SYSPUNCH  DO  SYSOUT-CB 

DSN»CVSOLDF,DI SP-SHR 
DSN-C VSDSN ,0 I SP-SHR 

DSNAME* Cl  SAM , UN  I T-CU I SAM, VOLUME -C  VI  SAM, DI SP-SHR 
OSNAME-CNE  WFFT, UNIT-CUFFT , VOLUME-C VFF T, DI SP-SHR 
DSNAME-CSAM. S, UNI T-CUSAM, VOLUME- CVS AM, LABEL- I , CL AB) , 
DC  B- 1 RECFM-VB , LRECL -1000 ,BLKSI ZE- CBS2FILE.0E N-CDEN, 
TR TCH-CTRCH) ,DI SP-I SHR.PASS) 

UNI T-CSTG, SPACE-IC YL » 13,11) 

UNI T-CSTG, SPACE- ICVL, (3,1)1 
UNIT-CSTG,SPACE*4CYL,(5,1) ) 

UN  I T-CSTG, SPACE-ICYL,I5,1) > 

UNI T-CSTG, SPACE-l TRK , l I 
DSNAME-SYS l.SORTL I B ,D1 SP-SHR 
UN  I T-CSTG, SPACE-l TRK,( l, II) 

UNI T-CSTG, SPACE- ICYL, I CMCTSP, 10)1 
UNI T-CSTG, SPACE-ICYL,(CAUXSP,S) ) 

UNI T-CSTG, SPACE- ICYL, I 1,1)1 
UNI T-CSTG, SPACE-l TRK,I20,5> ) 

UN  I T-CSTG, SPACE-l TRK, I 20,5)) 

UN  I T-CSTG, SPACE-l TRK, I 20, 5)) 

UN  I T-CSTG, SPACE-ICYL, I 5,2) ) 

UNIT-CSTG, SPACE- ICYL, 18, 21 ) 

UNI T-CSTG, SPACE- ICYL, 1 8, 2) ) 

OSN-CPTFJOBM,OI SP-SHR 
DSN-CJOBMAC, 01 SP-SHR 
DSNAME- SYS l.MACLIB, DI SP-SHR 
UN  I T-CSTG, SPACE- 1 TRK, 1 23, 51) 

UN  I T-CSTG, SPACE- ICYL, (4, 1, 10 )», DC B-t JOBL IB, 
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//OLOVSM  DD 


00 

DD 


//VSMFILE 
//OLDFILE 
//OATAFILE  OD 
//SAMFILE  00 
II 

n 

//TOORCOS  OD 
//POOL RCOS  OD 
//FRVSNA  DO 
//FRVSNB 
//FRGENCD 
//SORTL IB 
//FMCOMM 
//FMFLUO 
//FMTRANS 


DO 

00 

DD 

DO 

OD 

DO 


// FMLA8ELS  DO 
//FMCM  00 
//FMCMFILE  DD 
//FMLITF1L  DO 
//FMLEFILE  DO 
//FMMACRO  00 
//FMOUTMAC  00 


//SVSLIB 

// 

// 

//FMLEIN 

//SVSLMOO 


OD 

DO 

00 

DD 

DO 


X00000100 
00000300 
X00000500 
00000600 
00000700 
X 00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
IN',  00001700 
00001800 
00001900 
00002000 
00002100 
00002200 
00002300 
00002400 
00002600 
00002700 
00002800 
00002900 
00003000 
00003100 
00003200 
00003300 
00003400 
00003500 
00003600 
C00003700 
X00003800 
00003900 
00004000 
00004100 
00004200 
00004300 
00004400 
00004500 
00004600 
00004700 
00004800 
00004900 
00005000 
00005100 
00005200 
00005300 
00005400 
00005500 
00005600 
00005700 
00005800 
00005900 
C00006000 


I 


NIPS  360  FFS 


PROCEDURES 


» 


! 


//  LABEL  -EXPDT-66366 

//TEMLSREC  DD  UN  I T-CSTG, SPACE- < TRK , C 20. 5 ) I 
//SORTIN  DD  UNI T-CSTG , SPACE* (TRK,(CTRANSP»20) ) 

// SORTWKO l DD  SP ACE -( CYL , 1 £ SORTSP ), ,CONT IG) , UNI T-CSTG 
//SORTWK02  DD  SP ACE-IC YL . ( £ SORTSP ) . , CONT IGI .UNIT- I CSTG.SEP-SORTWKOl ) 
//SORTWK03  OD  SP ACE «( CYL ,< CSORT SP) , .CONT IG ) ,UNI T* ( CSTG , SEP- SORTWK02 ) 
//S0RTWK04  DD  SP ACE=( C YL , ( £SORTSP ) , , CONT I G) , 

//  UNIT-(£STG,SEP-(SORTMK0l,S0RTWK03) ) 

//SORT WK05  DD  SP ACE-t C YL . I CSORTSP ) . .CONT I G ) , 

//  UNIT-(£STG»SEP-( SOfi  TWK02 , S0RTWK04 ) I 

//SORTWK06  DD  SP ACE-( CYL  , I £ SORT SP ) . . CONT IG) , 

//  UNI T-<£STG,SEP-(SORTWKO3,S0RTWKO5) ) 

//SORTOUT  DD  DSN AME-* . SORT  I N, VOLUME-REF -*. SOPTI N, D I SP-( OL 0 ,P ASS ) , 

//  DC B-ILR EC L-1500.BLK SIZE-1 504 .RECFM-VB) 

//TAPE  IN  DD  OSNAME-*. SORTIN. VOLUME- £VSORT,DISP-(CLD,PASS) 

//TAPEOUT  DO  0SNAME-*. SORTIN, VOLUME-CVSORT ,DI SP- ( OLD, PASS) . 

//  OCB-( LP EC L-1500.BLK SIZE-1504 .RECFM-VB  ) 

//RFCSIN  DD  DSNAME-* • F MF  LUO , VOLUME-RFF-*. FMFLUD, D ISP- (OLD.PASS) 
//RECSOUT  DD  DSNAME-*.R EC S I N, VOLUME -RE F-*.RECS I N, D I SP-IOL D .PASS J , 

//  DC B-( LR ECL- 1000, BLKSIZE-l 004, RECFM-VB) 

//RECSWKO 1 DD  DSNAME-*. S0RTWK01 , VOLUME-REF-*. SORTWKOl . DI SP- ( OLD.PASS ) 
//RECSWK02  DD  0SNAME-*. SORTWK02 , VOLUME«REF=*.SORTWK02 ,DISP- ( OL D, P ASS) 
//RECSWK03  DD  OSNAME-*. S0RTWK03 , VOL UME-REF-*. SORTWK03 , D ISP-I OLD, PASS ) 
//RECSMK04  DD  OSNAME-*. SORTWK04 » VOLUME -REF- *. S0RTWK04  .DISP-l OLD, PASS) 
//RECSWK05  DD  DSNAME- *. S0RTWK05 .VOLUME* REF-*. S0RTWK05 , D ISP- ( OLD , PASS ) 
//RECSWK06  DD  DSNAME-*. S0RTWK06 .VOLUME-REF-*. SORTWK06 , 0 ISP- ( OLD, PASS ) 
//TRANS  DD  DDNAME-£TR ANTYP 
// VS AM  DD  DSN-GVSOLDF.DI SP-SHR 

//ISAM  DO  DSNA ME-£I SAM, UNIT -GUI  SAM, VOLUME- £V ISAM.OISP-SHR 
//SAM  DD  DSNAME-CSAM.S.UNIT-CUSAM, VOLUME-CVSAM.LABEL- ( .CLAB) « 

//  DCB-*.SAMF!LE,DISP-(SHR,KEEP) 

//AS SEMIN  DO  DSNAME-P.FMOUTMAC .VOLUME-REF-*. FMOUTMAC.O ISP- (OLD, PASS) 
//FMSETTBL  DD  UN  I T*£STG, SPACE* I TR  K, ( 1 , 1 ) ) 

//FMAUXOP  DD  DSNAME-*.FMTRANS, VOLUME-REF-*. FMTRANS.O I SP-I OLD, PASS) , 
//  DCB- ( LR EC L -1000. BLK  SIZE- 1004 ) 

//SLIB  DD  OS NAME-*. SYSLMOO.DI SP- COLO, PASS) , VOLUME-REF-*. SYSLMOO 
//  DD  DSNAME-GLIB.L.UNIT -£UL IB , VOL  UME-£VL IB.DISP-SHR 

//  00  OSNAME-£L I Bl.L, UNI T-CULIB l « VCLUME-CVL IBl .CISP-SHR 

//  OD  DSNAME-CJOBL IB ,D I SP-SHR 

//FMSAMOUT  DD  UN  I T- £NE MU SAM, VOLUME -( PRI VATE.RETA IN, £VSMOUT ) . 

//  LABEL-1 ,£LAB),DISP-(NEU,KEEP), 

//  DC  B- 1 RECFM-VB » LRECL -1 000, BLKSIZE*£BSZNEUF , DE  N-£DEN. 

//  TR  TCH-£TRCH) 

//FMNDATA  DO  UN  I T- CNEMU SAM, VOLUME- ( PRIVATE, RETAIN, CVSMPCT ) , 

//  LABEL -I , £L  AB) »OISP- I .KEEP) , DCB -*. FMSAMOUT 

// STAT  00  OSN-*.FMCM,VOL-REF-*.FMCM,DISP-(OLD,PASS) 

//TRANST  DD  OSN-CTRANS,  VOL“£  VTRANS,  UNI  T-CUTP.ANS  »DI  SP-£TDI  SP, 

//  SPACE- (TRK,  1) 

//INDEXPRT  DO  S YSOUT- ( £A ,£CL ) 

//IX TRANS  OD  01 SP -(NEW, PASS), UNI T-£STG , SPACE- (CYL .(CINXSP.l) ) 

//XINOEX  DO  OSN-£X INOEX. X ,01 SP- ( CXO ISP .KEEP) ,UNI T-£XUNI T, VOL- CXVOL, 

//  0CB-(BLKSIZE-£BLKSIZE,RECFM-F,KEYLEN-4,0S0RG-DA) , 

//  SPACE-1 £BLKS1ZE,£NBR8LK) 


00006100 
00006200 
00006300 
00006400 
00006500 
00006600 
C00006700 
00006800 
C00006900 
00007000 
C00007100 
00007200 
C00007300 
00007400 
00007500 
C00007600 
00007700 
00007800 
C 00007900 
00008000 
00008100 
00008200 
00008300 
00008400 
00C08500 
00008600 
00008700 
00008800 
00008900 
C00009000 
00009100 
00009200 
00009300 
00009400 
00009500 
00009600 
00009700 
00009600 
00009900 
COOOIOOOO 
00010100 
X00010200 
00010300 
C00010400 
00010500 
00010600 
00010700 
00010800 
00010900 
00011000 
00011100 
X0001 1200 
00011300 
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NIPS  360  FFS 


PROCEDURES 


A* A, CL-*, •,CL1*,.‘,BSZNEMF*1004,INDEX*1, 

I S AM-*OUMM Y.F ILE  • » 

JOBLIB-'FFS.JOBLIB* , 

L I B* • DUMMY.FI LE • » LI B l* • DUMMY. F ILE • , 

ND I SP-KEEP ,0VFL0W-1,PRIPE*5,RGN*60K,SDISP*SHR, 
PTFJOBL-'PTF.JOBLIB' . 

SC1RTSP-3, SOURCL*' DUMMV.F I LE • .STG-NIPM, 
UISAM*2314,ULIB-2314,ULIB1*2314,US0URCL-2314, 
VISAM-.VLIB-.VLIBl*. VSOURCL* 


CHARLES  W.  HICKISCH 
DATE-MARCH  l,  1974 


MAJOR, USA  PRCJ  CODE  *763N I PS  BRANCH-431 


//XFS  PROC 
// 

// 

II 
// 

// 

// 

II 
// 

It* 

II* 

n* 

1 1* 

II F$  EXEC  PGM-F  SPHA  SE»  REG  I ON-CRGN 

//STEPLIB  DO  DSN*£PTFJOBL, 01 SP-SHR 

II  DO  D$N-£JOBLIB»DISP*SHR 

//SLIB  DD  OSN=CLIB.L,DISP-SHR,VOLUME-£VLlB,UNIT-CULie 

//  DD  DSN«£LIB1.L,UNIT-£ULIB1,V0LUME-EVLI81,DISP*SHR 

//  DD  DSN-C JOBLIB.DISP-SHR 

//SOUR  CL  IB  DD  D I SP*C SO  I SP, DSN-CSOURCL.L , VCL-CVSOURCL ,UNI T-EUSOURCL 
//NEWFILE  DD  DSN-CISAM.I I NOE  X I .UNIT-CUISAM,  VOLUME *£Vl SAP, 

//  SPACE«(CYL,CINOEX),OCB*(DSCIRG*IS,BLKSIZE«CBSZNEWF) , 

//  DISP-I ,£NDISP, DELETE) 

//  DO  DSN-CISAM. (PRIME ) .UNIT-CUI SAM, VCLUME-REF-*.NEWF ILE , 

//  SP ACf-(  CVL. CPRIMF ), DCS-*. NEWF ILE, DI SP-( ,£NDISP, DELETE) 

//  DD  DSN-C I SAM. (QVFLOM) ,UNI T*£UI SAM, VOLUME -REF* *. NEWF ILE • 

//  SPACE* (CVL  .COVFLOW) » DC B-*. NEWF ILE  » DISP* ( ,£NDI SP, DELETE) 

//SORTLIB  DD  DSN* SYS  I. SORTL I B,DI SP-SHR 
//SORTIN  DD  UNIT-£STG,SPACE-(CYL,( 1,1)), 

//  DCB*(RECFM*VB»BLKSI ZE-1004 .LRECL-l 000) 

SPACE-(CYL, (£ SORTS P) » ,CONT I G ) ,UNI T« ( £ STG« SEP* SORT  IN  I 
SPACE* (CYL  , ( CSORTSP) ,, CONTIG) .UNIT- ( C STG, SEP* SORTWKOl ) , 
SEP -SORTWKOl 

// SORTWK03  DO  SPACE* (CYL . (CSORTSP) « .CONTIG) , UNIT* ( ESTG . SEP-S0RTWK02 ) , 
SEP-SORTWK02 

SPACE*) CYL, (CSORTSP) , .CCNTIG), 

UNI T-(CSTG,S£P*( SORTWKOl, S0RTWK03) ) , 

SEP*( SOP  TWKOl • SQRTWK03) 

SPACE*! CYL, (CSORTSP) , .CONTIG) , 

UN!T*(£STG»SEP*I SORT  MK02 , SOR  T WK04) ) . 

SEP*( SOR  TWK02, SORTMK04) 

SPACE*(CYL , (CSORTSP) , .CONTIG) . 

II  UNIT*(£STG,SEP*( SORT MHO  I , SCRTWK03, S0RTWK05 I I , 

//  SEP-( SORTMKOl , SORTWK03»SORTWK05) 

//SORTOUT  DD  UNI T-CSTG. SPACE*<C YL , ( 1 , I I > . 

//  DCB-(RECFM-VB»BLKSIZE*1004,LRECL*1000) 

//SYSOUT  DD  OUMMY 
//SYSPRINT  00  SYSOUT«(CA,eCL) 

//SYSUOUMP  DO  SYSOUT*) £A , CCL 1 ) 

// SOURCPRT  DO  SYSOUT-(A.tCL) 

//SYSUTl  OD  0 1 SP* I « PASS) ,0SN*I XSPDS.UN I T-CSTG .SPACE- (TRK. (5. 1 ) ) 

// FSSTEP2  EXEC  PGM-FSABMOO.COND*) lil.NE.FS) .REGION-CRGN 
//STEPLIB  DD  D SN* CJOBL IB , 01 SP-SHR 
//SYSOUT  DD  SYSOUT- ( CA . CCL) 

//SYSPRINT  DO  SYSOUT *( CA , CCL ) 

//DELNEW  DO  OSN AME-A.F S.NEWF ILE .UNI4-CUI SAM , VOLUME-R EF-*. FS.NEMF ILE, 
//  DISP-IOLD, DELETE) 
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//SORTMKOl 

DO 

//SORT  MK02 

DD 

II 

II  SORT  WK03 

DD 

// 

//S0RTWK04 

OD 

// 

// 

// SORTWK05 

DD 

// 

// 

// SQRTWK06 

DO 

XOOOOOIOO 
X00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001  LOO 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 
00001800 
00001900 
00002000 
*00002100 
X00002200 
00002300 
*00002400 
00002500 
*00002600 
00002700 
00002800 
*00002900 
00003000 
00003100 
*00003200 
00003300 
*00003400 
00003500 
*00003600 
*00003700 
00003800 
*00003900 
*00004000 
00004100 
*00004200 
*00004300 
00004400 
*00004500 
00004600 
00004700 
00004800 
00004900 
00005000 
00005100 
00009200 
00005300 
00005400 
0 0005500 
*00005600 
00005700 


■J 


NIPS  360  FFS 


PROCEDURES 


//XI STOS  PROC  A-4, RSZ  F ILE-  * BS  ZNEWF- ,CC»  *CL» ,**.CLI“,»,»  DEN-  , 00000100 
//  ISAM*' DUMMY. FILE* . JOBL I B»* FF S. JOBU B • ,L AB-SL , NO  I SP  = K FEP , 00000200 
//  OD ISP -KEEP, OLDS AM-* DUMMY. FILE*  »OLDVSAM- , 00000300 
//  0SD1SP-KEEP,RGN-60K,SAM-»DUMMY.F1LE* .SEQNO-l,  00000400 
//  PTFJOBL-’PTF. JDBL 18**  00000500 
//  TRCH-,UISAM-M2314,P>* ,USAM«  •( TAPE9 ,, DEFER! • , 00000600 
//  VISAM-.VSAM-  00000700 
//♦  * 00000800 
//*  CHARLES  W.  HICKISCH  MAJOR, USA  PROJ  CO0E-763NIPS  BRANCH-431  00000900 
//•  DATE-MARCH  1,  1974  00001000 
//*  00001100 
//STP1  EXEC  PGM-UTBLDSAM ,REGI ON* CP.GN,  P ARM- • CCC*  00001200 
//STEPLIB  DD  DSN-GPTFJOBL,DISP-SHR  00001300 
//  OD  DSN«CJOBL!B,DI SP*  SHR  00001400 
//DATAFILE  DD  DSNAME -£ I SAM , UNI T-CUI S AM , V0LUME-6VI SAM,  00001500 
//  D1 SP- I SHR , tOD ISP, KEEP), DCB-BUFNO-5  00001600 
//SAMFILE  DD  DSNAME-COLOSAM. S , UN l T-CUSAM, D l SP- < SHP , COSDI SP ) , 00001700 

//  vol-coldvsam,dcb*(recfm»vb,lrecl-iooo,blksize-cbszfile,  00001800 

//  DEN-CDEN , TR  TCH-CTRCH ,BUFN0-5 ) , LABEL- (CSEQND, CL A8)  00001900 
//SAMOUT  DD  D SN AME-C SAM. S, UN IT-CUSAM, VOLUME -CVSAM, 01 SP»( * CNDI SP ) , 00002000 
//  DCB-I*. SAMFILE, BLKSIZE-CBSZNEWF ), LABEL- (6SE0N0, CL AB1  00002100 
//SVSPRINT  DD  SYS OUT - ( G A , CCL ) 00002200 
//SYSUOUMP  OD  SYS OUT •( £A , CCLl ) 00002300 


4 


NIPS  360  FFS 


PROCEDURES 


//XKA  PROC 

A* A ,CL« • , • ,CLi»*. •• JOBLIB-'FFS. JOBLIB* ,RGN«100K, 

00000100 

// 

PTFJOBL**  PTF.JOBLIB*, 

OOOOOL 1 0 

// 

STG*NIPW, SORTSP »10, 

00000200 

// 

L I 8",  UL  IB* 23 14,  VL  IB*, 

00000300 

// 

I SAM* ‘DUMMY. FILE* .UISAM** 1 2314 ,PJ • , VI  SAM* , 

00000400 

// 

SAM* 'DUMMY. FILE', USAM** ( TAPE9 , .DEFER > * ,VSAM«, 

00000500 

// 

LAB*SL»DEN*3»  TRCH* 

00000600 

//* 

00000700 

//* 

PARAMETERS 

00000800 

//♦ 

00000900 

//*  A 

SYSOUT  - DEFAULT-PRINTER 

00001000 

//*  CL 

SYSOUT  CLASSIFICATION  - REQUIRED 

00001100 

//*  CL  1 

SYSUDUMP  CLASSIFICATION  - REQUIRED 

00001200 

//*  JOBLIB 

STEPLIB  DSN  - DEF AULT-FFS. JOBL I B 

00001300 

//*  RGN 

STEP  REGION  - OEFAULT* 1 75K 

00001400 

//•PTFJOBL 

STEPLIB  DSN  - DEFAULT*PTF. JOBLIB 

00001410 

//*  ST G 

TEMP  STORAGE  UNIT  - OEFAULT*NIPW 

00001500 

//*  SORTSP 

SORTMKNN  CYLINDERS  - DEFAULT-10 

00001600 

//*  LIB 

USER  LIBRARY  DSN  - REQUIRED 

00001700 

//*  ULIB 

USER  LIBRARY  UNIT  - DEFAULT*2314 

00001800 

//♦  VLIB 

USER  LIBRARY  • SER-SERIAL*  - REQUIRED 

00001900 

//• 

00002000 

//*  ISAM 

DSNAME  IF  ISAM  DATA  FILE.  CMIT  IF  SAM  FILE. 

00002100 

//*  UISAM 

ISAM  UNIT  CLASS 

00002200 

//*  VISAM 

ISAM  VOL  SERIAL 

00002300 

//• 

00002400 

//♦  SAM 

DSNAME  IF  SAM  OATA  FILE.  OMIT  IF  ISAM  FILE. 

00002500 

//*  USAM 

SAM  UNIT  CLASS 

00002600 

//*  VS AM 

SAM  VOL  SERIAL 

00002700 

//•  LAB 

SAM  VOL  LABEL  IF  NOT  STANOARD 

00002800 

//*  OEN 

SAM  VOL  DENSITY  IF  NOT  1600  BP I. 

00002900 

//*  TPCH 

SAM  CONVERSION  IF  M-TRACK  VOL. 

00003000 

//* 

00003100 

//*  CHARLES  M 

. HICKISCH  MAJOR, USA  PPCJ  CCDE-763NI PS  eRANCH-431 

00003200 

//*  DATE" 

■MARCH  1,1974 

00003300 

//* 

00003400 

//XKA  EXEC 

PGM-UTNDXKAN, 

00003500 

// 

REGION-CRGN 

00003600 

//* 

00003700 

//STEPLIB 

DO 

DSN-CPTFJOBL, 

00003800 

// 

DISP-SHR 

00003810 

// 

OD 

DSN-CJOBL IB, 

00003820 

// 

DISP-SHR 

00003900 

//* 

00004000 

//♦ 

00004100 

//oatafile 

DO 

DSN-CISAM, 

00004200 

// 

DISP-SHR, 

00004700 

// 

UNIT-CUISAM, 

00004400 

// 

VOL-£VI SAM 

00004500 

//* 

00004600 

//SAMFILE 

DO 

OSN-CSAM.S, 

00004700 

// 

UNIT-tUSAM, 

00004800 

// 

VOL-tVSAM, 

00004900 

// 

DISP-ISHR.KEEPI, 

00005000 

// 

LABEL-1 , CL AB) , 

00005100 

// 

DC B-IOEN-CDEN.TRTCH-CTRCH) 

00005200 

//♦ 

00005300 
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//SUB 

DO 

OSN*tLIB.L, 

00005600 

// 

UNIT  = CUL I B • 

00005500 

// 

V0L*6VLIB, 

00005600 

// 

OISP*SHR 

00005700 

//* 

00005800 

// 

DO 

DSN*£J08LIB,DISP*SHR 

00005900 

//• 

00006000 

//KANWKOi 

DD 

UNI  T=eSTG, 

00006100 

// 

DISP'I.PASS), 

00006200 

// 

SPACE*(CYL,I£SORTSP,CSORTSP>  1 

00006300 

//♦ 

00006600 

//SYSOUT 

DD 

SYSOUT* I 6A,£CL) 

00006500 

//* 

00006600 

// SYSPP INT 

DO 

SYSOUT*  (CA,  CCU 

00006700 

//♦ 

00006800 

//KMOPRT 

DO 

SYSOUT*  ( £A  f ecu  .SPACE*  (CYL.  12,  m 

00006900 

//• 

00007000 

//SYSUOUMP 

OD 

SYS0UT*ieA,ecui 

00007100 

//* 

00007200 

//SORTLIB 

DO 

DSN*SYS1. SORTLIB, 

00007300 

// 

01  SP*SHR 

00007600 

//* 

00007500 

//SORTWKOI 

DD 

UN  I T=£STG» 

00007600 

// 

SPACE* (CYL  ,<CSORTSP> ,,CCNTIG) 

00007700 

//• 

00007800 

//SORTWK02 

DD 

UNI T=( eSTG, SEP* SORTWKOI ) ,SEP*SORTwKOl , 

00007900 

// 

SPACF*(CYL,( eSORTSP ) ..CONTIG) 

00008000 

//* 

00008100 

//SORTWK03 

DO 

UNIT*! eSTG , SEP*S0RTWK02  J , SEP*S0RTWK02 , 

00008200 

// 

SPACE* I CYL,  1 CSORT  SP) ,,CONTIG) 

00008300 

//♦ 

00008600 

//S0RTWK06 

DO 

UNIT*(CSTG,SEP*( SORTWKO 1 ,S0RTWK03) ) , 

00008500 

// 

SEP  = ( SORTWKOI, SORTWK03)  , 

00008600 

// 

SP ACE-I CYL, 1 eSORTSP I ,,CONTIG) 

00008700 

//* 

00008800 

//SORTWK05 

DD 

UNIT-(eSTG,SEP*(SORTWK02»  S0RTWK06 ) ) , 

00008900 

// 

SEP* ( SGRTWK02 » S0RTWK04 ) , 

00009000 

// 

SP ACE* fCYL, (eSORTSP),, CCNT I G) 

00009100 

//* 

00009200 

//SORTWK06 

DD 

UN  I T*l eSTG , SEP* ( SOR  TWK01 , SCR TWK03 , SORTWK05I ) , 

00009300 

// 

SEP* ( SORTWKOI , S0RTWK03 , S0RTWK05! , 

00009600 

// 

SPACE*! CYL,  (eSORTSP) ,, CONTI G) 

00009500 

//* 

00009600 
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// XKM  PROC 

A= A ,CL- • , • »CLl-*  t ,,J0BLIB='FFS.JQBLI8*,PGN— 100K, 

00000100 

// 

PTFJ08L-* PTF. JOBLIB*. 

00000110 

// 

STG=N IP  W, SORTSP* 10 « 

00000200 

// 

LIB-.UL I 8=2314,  VLlB-,OLIB«*MCO,KEEP* , 

00000300 

// 

PRISP*2,SECSP»2,BLKSI«3478 

00000400 

If* 

00000500 

II* 

PARAMETERS 

00000600 

It* 

00000700 

II*  A 

SYSOUT  - DEFAULT-PR INTER 

00000800 

//*  CL 

SYSOUT  CLASSIFICATION  - REQUIRED 

00000900 

//*  CL1 

SYSUOUMP  CLASSIFICATION  - REQUIRED 

00001000 

It*  JOBLIB 

STEPLIB  DSN  - DEF AUL T=FFS. JOBL  18 

00001100 

//♦  RGN 

STEP  REGION  - DEFAULT* 1 75K 

00001200 

//*P TFJOBL 

STEPLIB  OSN  — DEFAULT=PTF. JOBLIB 

00001210 

//♦  STG 

TEMP  STORAGE  UNIT  - DEFAULT-NIPW 

00001300 

//*  SORTSP 

SORTWKNN  CYLINDERS  - OEFAULT=lO 

00001400 

//*  LIB 

USER  LIBRARY  DSN  - REQUIRED 

00001500 

//♦  ULIB 

USER  LIBRARY  UNIT  - OEFAULT-2314 

00001600 

//*  VL  IB 

USER  LIBRARY  • SER *SER I AL * - REQUIRED 

00001700 

//•  OLIB 

USER  LIBRARY  01 SP  - DEF AUL T= • M3D, KEEP • 

00001800 

//*  PRISP 

WORK  SPACE  PRIMARY  CYLS  - DEFAULT-2 

00001900 

//♦  SECSP 

WORK  SPACE  SECONDARY  CYLS  - DEE AUL T=2 

00002000 

II*  BLKSI 

WORK  SPACE  DC B BLKSI ZE  - DEFAULT=94 

00002100 

II* 

00002200 

II*  CHARLES  W 

. HICKISCH  MAJOR, USA  PROJ  CQDE-763NIPS  BRANCh=431 

00002300 

II*  DATF* 

■MARCH  I,  1974 

00002400 

II* 

00002500 

//XKM  EXEC 

PGM-UTNOXKMD, 

00002600 

// 

REGI ON=£RGN 

00002700 

If * 

00002800 

//STEPL  IB 

DO 

DSN-tPTFJOBL, 

00002900 

ft 

01 SP=SHR 

00002910 

ft 

DO 

DSN*  t JOBL I B i 

00002920 

// 

Dl SP-SHR 

00003000 

//* 

00003100 

//SI  IB 

DD 

DSN*CL  I B. L » 

00003200 

// 

UN  I T*£UL 1 B , 

00003300 

// 

VOL-CVLIB, 

00003400 

// 

DISP-ItOLIB) 

00003500 

//* 

00003600 

//KMDWKOl 

DO 

UNIT-tSTG, 

00003700 

// 

DI  SP*I » PA  SS) , 

00003800 

// 

SPACE-I CYL.ICPRISR.tSECSP)) , 

00003900 

// 

DCB-(RECFM*F8S»LRECL-94«BLKSIZE*£BLKSI) 

00004000 

II* 

00004100 

//KM0WK02 

DO 

UNIT-tSTG, 

00004200 

// 

DISP-I .PASS), 

00004300 

// 

SPACE«(CYL,I6PRtSP,£SECSP)» , 

00004400 

// 

DCB«(RECFN*FBS,LRECL-94,ULKSIZE-£BLKSI> 

00004500 

II* 

00004600 

//KM0WK03 

DO 

UNIT-tSTG, 

00004700 

// 

OISP-(.PASS), 

00004800 

// 

space-i  trk.i  l,  m 

00004900 

ft* 

00005000 

// KM0WK04 

00 

UNIT-tSTG, 

00005100 

// 

OISP-I.PASS), 

00005200 

// 

SPACE-I TRK,(5»5I ) , 

00005300 
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// 

//* 

DCB-(RECFM-FBS,LRECL«72,BLKSIZE-720) 

00005400 

00005500 

//KMDWK05 

// 

// 

// 

//♦ 

DO 

UNIT-CSTG, 

DI SP»( i PASS  1 • 

SPACE-1 CYL.ICPR  ISP,£SECSP) J . 
DCB-(RECFM-FBS,LRECL=94,BLKS  IZE-£BLKSl) 

00005600 

00005700 

00005800 

00005900 

00006000 

//SYSOUT 

//* 

DO 

SYSOUT=(£A,£CL) 

00006100 

00006200 

//SY SPRINT 

00 

SYSOUT- (£A,£CL) 

00006300 

//KMDPRT 

//* 

DD 

SY SHUT- ( £A,  £CL) .SPACE- (CYL. (2,1) ) 

00006400 

00006500 

//SYSUDUMP 

//* 

DO 

SYS0UT-(£A,£CL1> 

00006600 

00006700 

//SORTLIB 

// 

//* 

DD 

DSN-SYSl. SORTLIB, 

D I SP=  SHR 

00006800 

00006900 

00007000 

//SDRTWKOI 

// 

//* 

DO 

UN  I T-CSTG, 

SPACE*(CYL,(£SORTSP) ,,CONTIG) 

00007100 

00007200 

00007300 

//SORTWK02 

// 

//• 

DD 

UNIT-(£STG,SEP»SORTWK01 ) , SEP- SORTHKO 1 , 
SPACE=(CYL,(£SORTSP) ..CONTIG) 

00007400 

00007500 

00007600 

// S0RTWK03 
'/ 

//* 

DD 

UNIT-USTG.SEP-SORTWK02)  .SEP-SCRTWK02 , . 

SP  ACE-( CYL •( CSORTSP ) , ,CONT I G ) 

A 

00007700 

00007800 

00007900 

//SORTHK04 

// 

// 

//* 

DD 

UNIT-USTG,  SEP-I SORT UK 01 , SORT WK03 ) ) , 

SEP* ( SOR  TWK01 , SORTWK03 ) , 

SP ACE- ( C YL, ( 6SCRTSP ),, CONTIG) 

00008000 

00008100 

00008200 

00008300 

// SORTWK05 
// 

// 

//* 

no 

UNIT-(£STG»SEP-(  SOR  TWK02,SCRTWK04)  ) , 

SE  P- ( SORTWK02 , SOR  TWK04  ) , 

SPACE-(CYL,(£SORTSP) . .CONTIG) 

00008400 

00008500 

00008600 

OOOOPTOO 

//SORTWK06 

// 

// 

//* 

DD 

UN  I T»( £STG, SEP- ( SORTWKOl .SCRTWK03 , S0RTWK05) ) , 

SE  P- ( SORTWK01,SORTWK03,SORTWK05) , 

SP ACE-ICYL, (£ SORT SP),, CON TIG) 

00008800 

00008900 

00009000 

00009100 
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//XOP  PROC 

A=A,B=B,BSZFILE»,BSZFILl-,BSZFIL2-, 

00000100 

// 

CL«',',CLl=',,,CL2-',', 

00000200 

// 

ISAM"*  DUMM Y.F ILE*  >1 SAMl»* DUMMY. FILE* • I S AM2-* DUMMY .F I LE' 

, 00000300 

// 

JO BL I 8»' FFS. JOB LIB* , JOBMAC-' FFS. JOBMACRO* , 

00000400 

// 

LAB-SL, 

00000500 

// 

L I B-' DUMM Y.F I LE,*LIBl*•OUMMY.FILE, , LI B2-* DUMMY. F ILF • , 

00000600 

// 

LIBDISP-SHR, 

00000700 

// 

PTFJOBL-'PTF.JOBLIB', 

00000710 

// 

PTFJOBM*' PTF. JOBMACRO' , 

00000720 

// 

OOF* • CCQOF ILE'.OD ISP- PASS, QRT='££QRTFILE', 

00000800 

// 

RGN*1 OOK  t 

00000900 

// 

SAM" ‘DUMMY. FILE* , SAMI* 'DUMMY. FILE' f SAM2- • DUMMY. F ILE • , 

00001000 

// 

SO  I SP-SHR,  SOURCL* 'DUMM Y.F ILE ' .STG-NIPW, 

00001100 

// 

TDISP»MOD,TRANS«'£CTRANS' , 

00001200 

// 

UISAM*' (2314, P)', 

00001300 

// 

UL IB* 2314, ULIB1=2314,ULIB2 *2314, 

00001400 

// 

UQDF-NIPW.UQRT-NIPW, 

00001500 

// 

USAM-'I  TAPE9,  , DEFER ) • , U SOURCL *23 14 , 

00001600 

// 

UTRANS-NIPM, 

00001700 

// 

VI  SAM-, VI  SAMI* , VISAM2-, 

00001800 

// 

VL  tB*,VLIB  1-.VLIB2*, 

00001900 

// 

VODF* , VQR  T* , 

00002000 

// 

VSAM* , VSAM  1* , VS A M2* , 

00002100 

// 

VSOURCL ", VTRANS- 

00002200 

//* 

00002300 

//*  CHARLES  W 

1.  HICKISCH  MAJOR, USA  PROJ  C00E-763NIPS  BRANCH*43l 

00002400 

//*  DATE; 

"MARCH  l.  1974 

00002500 

//* 

00002600 

//OP  EXEC  1 

PGM" 

OP, RFGION-CRGN 

00002700 

//STEPUB 

00 

DSN=£PTFJ08L,DI SP-SHR 

0 0002800 

// 

DO 

DSN.-C  JOBL  I B, 01  SP-SHR 

00002810 

// OAT  A F IL  E 

DO 

DSNAME-CISAM.DI SP- SHR, UNI T- GUI  SAM .VOLUME -CV ISAM 

00002900 

//0ATAFIL1 

00 

0SNAME-£ISAH1,DISP-SHR»UNIT*£UISAM»V0LUME*GVISAM1 

00003000 

//DATAFIL2 

00 

DSNAME*£ISAM2,0ISP*SHR, UNI T*£UI SAM , VOLUME*£VI SAM2 

03003100 

//SAMFILE 

00 

DSNAME-£SAM.S,OI SP-SHR, UNI T*£USAM, VOLUME" £ VSAM, 

X00003200 

// 

LABEL-I ,£L  AB) , DCB-BLKS I ZE-CBSZF I LE 

00003300 

//SAMFILE1 

OD 

DSN AME -£ SAMI. S, 01 SP*SHR , UN I T*£U SAM, VOLUME- CVS  AMI, 

X00003400 

// 

LABEL-I ,CLAB),0CB-BLKSIZE-£BSZFIL1 

00003500 

// SAMF I LE2 

00 

i 0 S NAM E-CS A M2. S ,01 SP-SHR , UNI T*£USAM,V0LUME»£VSAM2, 

*00003600 

// 

LABEL-I ,£LABI , DCB -BLKS I ZE-CBSZF IL2 

00003700 

// Dl I B DD 

DSNAME-£LIB.L,DISP-£LlBDISP,VOLUME-£VLlB,UNIT-CULlB 

00003800 

/'TUB  00 

DSNAME "CLIBL.LtOI SP-SHR , VOLUME "GVLIBl.UNIT-CULIBl 

00003900 

//SOURCPRT 

00 

SYS  OUT* I £A , CCL ) 

00004000 

//SOURCLIB 

00 

i 0 ISP-C  SO  I SP,  DSN- £ SOURCL.  L , VOL-CVSOURCL  ,UMT-£US0URCL 

00004100 

//SY SPRINT 

DO 

$YS0UT-(GA*tCL)»DCB*(LRECL-133«BLKS IZE-665 1 

00004200 

//SYSOUT 

00 

SYSOUT- I £A , CCL ) 

00004300 

//SYSUDUMP 

00 

SYSOUT- I £A , CCL 1 ) 

00004400 

//SYSUTI 

00 

UNI T-CSTG, SPACE- (TRK, (200, 20>) 

00004500 

//SYSUT2 

00 

UNIT-I CSTG, SEP- SYSUTI) , SPACE- (TRK,  1200,20) 1 

00004600 

//SYSUT3 

00 

UNIT-ICSTG, SEP* (SYSUTI, SYSUT2 ) » .SPACE- (TRK, ( 200,2 01  I 

00004700 

//SYSPUNCH 

DD 

UNI T- £STG»  SPACE- ( TRK, (SO, 10) > , 

X00004800 

// 

OCB-(RECFM«FB, LRECL-80.BLKSI ZE-400 ) 

00004900 

//SYSLIB 

00 

OSN-CPTFJOBM, 01 SP-SHR 

00005000 

// 

00 

DSN-CJOBMAC.OISP-SHR 

00005010 

// SYSLMOO 

00 

UNI T-CSTG, SPACE- 1 TRK,  (50,25,51) ,DCB-S YSl .L INKL IB, 

X00005100 

// 

LABEL "RETPD-0000 

00005200 

//systprt 

DO  SYSOUT-(CA,CCL),OCB-(RECFM«FB,LRECL-121 .BLKSIZE-605) 

00005300 
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//OPIWCF  DO  UNI  T-GSTG,  SPACE  * I TRK  , 1 2 , 1 ) ) ,DCB*  ( BLKS I ZE-600,  LRECL  -BO . 

//  RECFM-FB) 

//OPSTST  DO  UNI T-GSTG, SPACE-ITRK, (10,211 

//OPCREATE  OD  UN  I T= £ STG, SPACE’ I TRK , ( 1 , 1 1) 

//OPCOMREC  DO  UNIT-GSTG, SPACE-ITRK, Cl, l) ) 

//INSTS  DD  UNIT*£STG,SPACF*ITRK,(50,5)) 

//LCF  DD  UNI T-GSTG, SPACE-ITRK, 110,5)) 

//LCT  DD  UNIT*£STG,  SPACE*! TRK,(I0»5) I 

//LITSTR  DO  UNIT-GSTG, SPACE*ITRK, 150, 5) > 

//NAMDEF  DO  0SNAME-*.SYSUT1, VOLUME=REF **. S YSUTl , D l SP* (OLD , PASS ) 

//LtTAB  DD  DSNAME**. SYSUT2, VOLUME-REF-*. SYSUT2.DISP-I0LD, PASS) 

//RGTAB  OD  DSNAME-*. SYSUT3, VOLUME-REF-*. SYSUT3,DISP«I0LD, PASS) 

//CGC  00  UNIT-GSTG, SPACE-ITRK, <l,D) 

//ERRTAB  DD  UNI T-GSTG, SPACE-l TRK, 18 ,5) ) 

//DCTNY  DD  DSNAME-*. SYSPUNCH, VOLUME-REF -*.SYSPUNCH,0 ISP* I OLD , PASS J 
//SUBTAB  DD  UNI T-GSTG , SPACE’ ITRK,I1,1) ) 

// OPLGOGO  DD  DSNAME-*. SYSUTl, VOLUME-REF-*. SYSUTl.DI SP* ICLD .PASS ) 
//OPLEXEX  00  DSNAME**. SY SUT2, VOLUME -REF-*. SYSUT2.D ISP-ICLD.PASS) 
//OPLEXDIR  DD  DSNAME -*.SYSUT3»V0LUME-REF-*. SYSUT 3 ,01 SP- IOLD.PASS) 
//OPLINE  DD  SYS0UT-I£A,£CL2>  ,0C B-LRECL* 133 

//OPPUNCH  DD  SV SOUT * £B 

//SLIB  DD  DSNAME** . SYSLMOD, VOLUME* REF**. S YSLMOD.DI SP-I  CLO.PASS) 

//  DO  DSNAME**. OL  IB, D I SP*SHR , UNI T-£UL 1 8, VOLUME*£ VL I B 
//  DD  DSNAME-*. TL IB, DISP-SHR, UNIT-GULIB1 , VOLUME-G VL I B1 
//  DD  DSNAME -GL I B2 . L ,D I SP*  SHR , UN  IT* GUL  r82 » VCLUME-G  VL I B2 
//  DO  DSN*6PTF  JDBL , 0 1 SP-SHR 

//  DD  DSNAME-t JOBL IB, 0 ISP* SHR 

//SYSAIN  DO  OSNAME-*. LITSTR, VOLUME *REF=*. U TSTR ,D I SP- I CLD, PASS) , 

//  DCB-(RECFM*FB, LRECL-80,BLKSI ZE-600.BUFN0-5) 

//  DD  DSNAME-*. INSTS, VOLUME-REF-*. INSTS, OISP-(OLD, PASS), 

//  DCB-IRECFM-FB,LRECL-80,BLKSI ZE-400, BUFNO-5) 

//SYSLIN  DD  DSNAME-*. LCF, VOLUME-REF-*. LCF, DISP-IOLO, PASS! 

//SYSTIN  00  DSNAME-*. LCT, VOLUMt-REF-*. LCT, DISP-IOLD, PASS) 

//LOADR  DD  DSNAME-*. SYSPUNCH, VOLUME-REF-*. SYSPUNCH, DISP-(OLD, PASSI , 

//  DCB-IRECFM-FB,LRECL-80,8LKSIZE*400I 

//QDFlLE  DD  OSNAME-£QDF,UNIT-£UQDF , VOLUME -GVCOF , 01 SP-I SHR, £Q0 ISP, KEEP) 
//QRTFILF  DO  OSNAME-£ORT, UNI T-GUQRT, VOLUME- GVORT.Dt SP- I SHR, GOOI SP ,K EEP 
//STAT  DD  DSN-*. INSTS, VOL -REF-*. INSTS, DISP-  IOLD.PASS) 

//TRANST  DD  DSN-GTRANS .VOL-GV TRANS, UNI T-CUTRANS . 

//  DISP-GT0ISP,SPACE-(TRK,1) 


*00005600 

00005500 

00005600 

00005700 

00005800 

00005900 

00006000 

00006100 

00006200 

00006300 

00006600 

00006500 

00006600 

00006700 

00006800 

00006900 

00007000 

00007100 

00007200 

00007300 

00007600 

00007500 

00007600 

00007700 


00008000 
00008100 
00008200 
00008300 
00008600 
00008500 
X00008600 
00008700 
00008800 
) 00008900 
00009000 
00009100 
00009200 
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// XOPEX  PROC 

A- A ,B-B  « 

00000100 

// 

CL»‘  ,,,CL1-‘»,»CL2**»,» 

00000200 

// 

CHK DSP “DELETE  *CHKID-‘  GGCHKID • , CHKSP-0 .CHKST-NEW, 

00000300 

// 

I SAM-  ‘OUMNY.FILE’ , I SAMI- • DUMMY. F I LE • 1 1 SAM2-* DUMMY. FILE* 

, 00000400 

// 

JOBL I B«*FF  S. JOBL IB'  , 

00000500 

// 

L I B-*DUMMY. FILE ‘,LIBl* ‘DUMMY. F ILE • ,LlB2-‘ DUMMY. FILE* , 

00000600 

u 

LIBDISP-SHR, 

00000700 

n 

NRMDSP-DELETE « 

oooooaoo 

// 

PTF JOBL* ‘ PTF.J08LIB‘» 

00000810 

u 

QDF*‘ GGQDFILE' ,QDI SP-PASS, QRT-* CGQRTF I LE • , 

00000900 

u 

RGN-100K, 

00001000 

u 

STG-NIPM, 

0000 II 00 

n 

TO  I SP-MOD*  TRANS*  *GG TRANS* , 

00001200 

u 

UCHK-NIPW, 

00001300 

n 

UISAM-* (2314, P)‘ , 

00001400 

// 

UL IB-2314, UL I B 1*2314,ULI B2*2314, 

00001500 

// 

UQOF-N IP W, UQRT-N IPW , 

00001600 

u 

UTRANS-NIPK, 

00001700 

// 

VISAM*,VISAMl*,VISAM2*f 

00001800 

u 

VL  IB-.VLIB1-.VLIB2-, 

00001900 

ii 

VQDF- , VQR  T-, 

00002000 

ii 

VCHK-.VTRANS- 

00002100 

it* 

00002200 

II*  CHARLES 

W.  HICKISCH  MAJOR, USA  PRCJ  COOE-763NIPS  BRANCH-431 

00002300 

II*  DATE 

-MARCH  I,  1974 

00002400 

II* 

00002500 

HOP  EXEC  1 

F>  GM»  OP , RE  G I ON-  6 RGN 

00002600 

//STEPL  IB 

DO 

OSN-GPTF JOBL, 01 SP-SHR 

00002700 

II 

DO 

DSN-GJOBLIB.DI SP-SHR 

00002710 

II  DATAFILE 

00 

OSNAME-C!SAM,DI SP» SHR ,UNI T -GU I SAM, VOLUME *GVISAM 

00002800 

// 0ATAFIL1 

00 

OSN AME-G I SAMI, 01 SP-SHR, UNI T-GUI SAM, VOLUME *GV I SAMI 

00002900 

//0ATAFIL2 

DO 

0SNAME-GISAM2,0ISP-SHR,UNIT-GUISAM,V0LUME-GVI SAM2 

00003000 

// OLIB  DO 

DSNAME-GLIB.L.OISP-GLIBDISP, VOLUME -CVL I B »UN IT-GUL IB 

00003100 

//TUB  00 

DSNAME-CLIB I.L .01 SP-SHR , VOLUME-CVLI B1 , UNI T- CUL I B l 

00003200 

//SOURCPRT 

DO 

SYSOUT-I GA, GCL ) 

00003300 

//PRINTER 

00 

SYSOUT-I GA , GCL ) 

00003400 

//SYSOUT 

00 

SYSOUT-I G A, GCL 1 

00003500 

//SYSPRINT 

00 

SYSOUT-I GA, GCL) 

00003600 

//SYSUDUMP 

OU 

SYSOUT>( GA , GCL 1 ) 

00003700 

//OPLINE 

00  SYS0UT-(GA,£CL2),0CB-LRECL-133 

00003800 

//OPINCF 

00 

UNI T-GSTG, SPACE- ITRK ,(2,1) I ,DCB-( BLKSI ZE-400 , LRECL-80 . 

*00003900 

// 

RECFM-F  B( , OSNAME- CCHKlD.A,OISP-( * GNRMOSP*  CCHKOSP ) 

00004000 

// OPCOMRFC 

00 

UNI T-C  STG, SPACE- ITRK  ,11,1)), 

X00004100 

// 

DISP-I, GNRMOSP, CCHKOSP) , OSNAME- GCHK ID. B 

00004200 

//OPLGOGO 

00 

UNI T-GSTG, SPACE •( TRK ,(20,1)), 

X00004300 

// 

OISP-I .GNRMOSP, GCHKDSP) , OSNAME- GCHK ID. C 

00004400 

//OPLEXEX 

DO 

UNIT-IGSTG, SEP-CPLGOGO) , SPACE- ITRK , ( 20, 1 1 I , 

X 00004500 

// 

0!SP«(, GNRMOSP, CCHKOSP) .OSNAME-GCHKIO.O 

00004600 

//oplexoir 

DO 

UNI T»( GSTG,SEP-( OPLGOGO, OPLEXEX) ) , SPACE* ( TRK,  ( 20 , 1) ) , 

X00004700 

// 

OISP»( .GNRMOSP, CCHKOSP) .OSNAME- GCHKID.E 

00004800 

//OPPUNCH 

00  SYSOUT-GB 

00004900 

//SLIB  OD  1 

DSNAME-4.DL I B ,0 1 SP-SHR  * UNI T-CUL I B , VOLUME- CVL I B 

00005000 

//  DO  OSNAME-*. TL IB,0ISP-SHR,UN1T-CULIBI,V0LUME-CVLIBI 
//  00  DSN AME-CL I B2.L  , D I SP- SHR , UN  I T-CUL 1 82 , VOLUME -CVL 1 02 

//  00  DSN-CPTF JOBL*  0 1 SP-SHR 

//  DD  DSNAME-GJOBL  IB.DISP-SHR 

//OOFILE  00  OSNAME-eQOF,UNlT-CUQDF,VOLUME-£VCDF,DISP-(SHR,CCOISP,KEEP)  00005600 


i 


NIPS  360  FFS  PROCEDURES 

//QRTFILE  OD  D$NAME*CQRT « UNI T*£UQRT , VOLUME*  CVQRT  »DI SP* ( SHR, CODl SP»KEEP I 
//CHECKDD  DO  DSNAME*£CHKIO,DI SP* I CCHK ST, CNRMOSP , CCHKOSP ) ,UN IT-CUCHK , 

//  VOLUME*£VCHK»  SPACE*CCYL  »( CCHKSP  ,1 ) J 

//STAT  DO  UNIT*£STG,SPACE*ICYL,<2,1>) 

//TRANST  DD  DSN*t TRANS , VOL-CVTRANS • UNI T*CUTRANS, 

//  DISP*CTDISP. SPACE* CTRK*1) 


>• 


P 


I 


I’ 


00005500 

00005600 

00005700 

00005R00 

00005900 

00006000 
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PROCEDURES 


//XOPSO 

// 

// 

// 

// 

1 1 
// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

1 1* 

//• 

//* 


PROC  A-A,B-B,BSZFILE«,BSZF1LI-,BSZFIL2», 

CL  «•  , • ,CL !«•» ,»CL2*‘,‘ • 

ISAM- ‘DUMMY. F ILE ' • I SAMI -• DUMMY.F ILE • , I S AM2«‘ DUMMY. F I LE • , 
JOBLIB-'FFS.JOBLIB* , JOBMAC-* FFS.JOBMACRO' • 

LAB-SL, 

LIB- ‘DUMMY. FILE* , L I B l- ‘ DUMMY.F ILE ‘ , LI B2- • OUMMY.F ILE‘  , 
LIBDISP-SHR, 

PTFJOBL-‘PTF. JOBL IB* ,PTF JOBM-* PTF . JOBMACRC*. 

RGN-100K, 

SAM- ‘DUMMY.F I LE •, SAMI- 'DUMMY. FILE* , SAM2- ‘ DUMMY. F ILF*  , 
SOISP“SHR»  SOURCE- ‘DUMMY. F ILE'tSTG-NIPWi 
TOISP-MOD, TRANS-' tCTRANS* . 

UI SAM-‘ (2314«P) • f 
ULIB-2316,ULIB1-231A,ULIB2-2314, 

USAM-‘(TAPE9,,DEFER) • , USOURCL-2314 , 

UTRANS-NIPM, 

VISAM-.YISAMI-, VISAM2-, 

VL  IB-.VL IB1-, VLIB2-, 

VSAM-,VSAM1-»VSAM2-* 

VSOURCL-, VTRANS- 


CHARLES  M.  HICKISCH 
DATE-MARCH  I,  1974 


MAJOR, USA  PROJ  C0DE-763NIPS  BRANCH-431 


//* 

//OP  EXEC  PGM- OP, REG ION-CRGN 
//STFPLIB  DD  DSN-6PTF JOBL ,D1 SP-SHR 
//  DD  OSN-CJOBLI B,DI SP-SHR 

//DATAFILE  DD  OSN AME-C IS AM,0 1 SP-SHR ,UNI T-£U I SAM, YOLUME-CV I S AM 
//DATAFILI  DD  DSNAME-C I SAMl.OI SP-SHR, UNI T-CUl SAM,  VOLUME* CV I SAMI 
//0ATAFIL2  DD  DSN AME- U S AM2, 01 SP-SHR, UNI T-£UI SAM , VOLUME-tVI SAM2 
//SAME ILE  OD  DSNAME -£ SAM.S,DISP- SHR ,UNI T -£USAM, VOLUME- £VSAM, 

//  LABEL-I , £L  AB) , DCB-BLKS I ZE- £B S2F I LE 

//SAME IL E 1 DD  DSNAME -£ SAM l. S, D1 SP-SHR , UNI T-£USA m, VOLUME- £VS AMI , 

//  LABEL-I ,£LAB) , DCB-BLK S I ZE-£BSZF IL 1 

//SAMFILE2  00  OSNAME-CSA M2. S, 01 SP-SHR , UNI T-£USA M, V0LUME-£VSAM2 , 

//  LABEL-I ,£LABI , DCB-BLKS I ZE-£BSZF I L2 

// DL  IB  DD  DSNAME-£LIB.L,OISP-£LIBDISP, VOLUME >£V LI B , UN  I T-£UL I B 
//TLIB  DD  DSNAME-£LIB1.L,0ISP« SHR ,V0LUME-£VLIB1,UNIT-£ULIB1 
//SOURCPRT  DD  SYSOUT-I £A, £CL » 

//SOURCLIB  DD  OISP-£SDI SP, DSN-CSOURCL. L , VCL«£ VSOURCL , UNI T» CUS OURCL 
//SYSPRINT  DD  SYSOUT-I £A , £CL J ,DCB- I LRECL- 133, BLKS IZE-665 I 
//SVSOUT  DD  SYSOUT-I £A,£CL) 

//SYSUOUMP  DD  SYSOUT-I £A , CCL 1 I 

//SYSUTl  DO  UNI T-GSTG, SPACE-ITRK, 1200,201  I 

//SVSUT2  OD  UNIT-ICSTG,  SEP-SYSUTU, SPACE-ITRK, 1200,201) 

//SYSUT3  00  UNIT-l£STG,SEP-(SYSUTl,SYSUT2) ) , SPACE-ITRK, I 200,20) ) 
//SYSPUNCH  DD  UNIT-£STG, SPACE-ITRK, 150, 10) ) , 

//  DC  B-l RECFM-FB, LRECL-80,BLKSI ZE-400, BUFNC-5) 

//SYSLIB  DO  DSN-£PTFJOBM, DI SP-SHR 
//  DO  DSN-CJOBMAC ,01 SP-SHR 

//SYSLMOO  DD  UNIT-£STG, SPACE-ITRK, 150, 25, 9)), DCB-SYS1 .LI NKLI B, 

//  LAB  EL-RE TPD-0000 

//SYSTPRT  DD  SYSOUT-l£A,CCL), DCB- I RECFM-FB, LRECL- 12 l.BLKSIZE-605) 
//OPIWCF  DD  UNI T-£STG, SPACE-ITRK ,12,1) ) , DCB- I BLK S I ZE-400 , LRECL-80 , 
//  RECFM-FBI 

//CPSTST  OD  UNI T-£  STG, SPACE-ITRK ,(10,2)) 

//OPCRE ATE  DO  UNI T-£ STG, SPACE-1 TRK , 11  * I) ) 
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00000100 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

oooouoo 

00001200 

00001300 

00001400 

00001500 

00001600 

00001700 

00001600 

00001900 

00002000 

00002100 

00002200 

00002300 

00002400 

00002500 

00002600 

00002700 

00002800 

00002900 

00003000 

X00003010 

00003100 

X0000320C 

00003300 

*00003400 

00003500 

00003600 

00003700 

00003800 

00003900 

00004000 

00004100 

00004200 

00004300 

00004400 

00004500 

X00004600 

00004700 

00004800 

00004900 

X00005000 

00005100 

00005200 

*00005300 

00005400 

00005500 

00005600 


. I 


NIPS  360  FFS 


PROCEDURES 


//DPCDMREC  DO  UNIT-ESTG*  SPACE” (TRK, (1,1)  I 

//INSTS  DD  UNI T-CSTG, SPACE»(TRK  ,(50,5) ) 

//LCF  00  UNI T-ESTG, SPACE -I TRK  ,( 10,5) ) 

//LCT  DO  UNIT-ESTG*  SPACE-*!  TRK»(10,5)) 

//LITSTR  00  UNI T» ESTG , SPACE- ( TRK  ,( 50,5 ) » 

/ / NAMDEF  00  DSN AME-* • S Y SUT l*  VOLUME-REF «*. S VSUTl , 0 I SP- ( OLD .PASS  1 

//LI TAB  DO  DSNAME-*. S YSUT2 , VOLUME -REF- *. SYSUT2 »DISP“(CLD,PASS) 

//RGTAB  DO  DSNAME-*. SY SUT3 , VOLUME-REF**. SYSUT3 , 0 1 SP- ( CLD, PASS ) 

//CGC  00  UNI T-ESTG,SPACE»(TRK, (1,1)1* 

// ERR  TAB  DO  UNI T* ESTG, SPACE*! TRK, (8, 51) 

//SUBTAB  DO  UNIT-ESTG, SPACE-(TRK, (l, l>) 

// OCTNY  DD  DSN AME-*. S YSPUNCH, VOLUME -REF -♦. SYSPUNCH.O ISP- (OLD, PASS) 
// QPIGOGO  DO  DSNAME-* . SYSUT I, VOLUME* REF**. SYSUT 1,DISP-(CL0,PASS) 
//OPLEXFX  00  DSNAME-*. SYSUT2 , VOLUME-REF-* .SYSUT2 , 01 SP- (OLD, PASS  I 
//OPLEXOIR  DD  DSNAME »*. SY SUT3, VOLUME- REF-*. SYSUT 3 ,D I SP«< OLD, PASS) 
//OPLINE  DD  SYS OUT -( £A , ECL2) , DCB-LRECL-133 
//OPPUNCH  DO  SYSOUT-EB 

//SLIB  DD  DSNAME-*. SYSLMOO , VOLUME-REF-*. SYSLMOD, 01 SP-( OLC , PASS! 

//  DD  OSNAME-*.DL IB.DISP- SHR , UN IT-EUL IB, VOLUME -EVLIB 
//  00  DSNAME-*. TL IB, DI SP- SHR , UNI T-EUL I B1 , VOLUME-EVLI Bl 
//  DO  DSNAME-ELIB2.L.DI SP- SHR ,UNIT»CULIB2 .VCLUME-EVL I B2 
//  OD  DSN-EPTFJOBL.DISP-SHR 

//  DD  DSNAME-E  JOBL  IB.DISP-SHR 

// S V SAIN  DD  DSNAME-*. I I TSTR, VOLUME -REF-*. LITSTR, 01 SP- (OLD, PASS  I • 

//  DCB- ( RECFM-FB , LRECL-80 , 8LKSI ZE—400, BUFNO-5 ) 

//  OD  DSNAME-*. INSTS, VOLUME-REF-*. INSTS, OISP»(OLD, PASS) , 

//  DC B=( RECFM-FB, LRECL -80, BLKS I ZE-400 , BUFNO-5) 

//SYSLIN  DD  DSNAME-*. LCF, VOLUME-REF-*. LC F,0 1 SP* I OLD , PASS) 

//SYSTIN  DD  OSNAME-*. LCT, VOLUME-REF-*. LCT, 0 1 SP-IOLD , PASS ) 

//LOADR  DD  OSNAM E»* .S YSPUNCH , VOLUME -REF- *. SYSPUNCH ,01 SP-(QL0,PASSI, 
//  DCB-(RECFM-FB,LRECL»80,BLKSI ZE-400) 

//STAT  DD  DSN-*. INSTS, VOL -REF-*. INSTS, DISP-IOLD, PASS) 

//TRANST  DD  OSN-E TR ANS , VOL-C VTRANS ,UN I T-CUTR ANS, 

//  D I SP- CTD !SP*SPACE-(TRK,1) 


00005700 

00005800 

00005900 

00006000 

00006100 

00006200 

00006300 

00006400 

00006500 

00006600 

00006700 

00006800 

00006900 

00007000 

00007100 

00007200 

00007300 

00007400 

00007500 

00007600 

00007700 

00007800 

00007900 

00008000 

00008100 

00008200 

00008300 

00008400 

00008500 

'XO0C0860O 

00008700 

00008800 

00008900 

00009000 


J 
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/ / XOPSOEX 
// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

1 1 
// 

// 

// 

1 1* 

1 1* 

u* 

//* 

//OP  EXEC 
//STEPLIB 
// 

// OATAF  ILE 
//DATAFIL  l 
//DATAF  IL2 
//SAMFILE 
// 

//SAMFILEl 

// 

//SAMFILE2 

// 

//DUB  00 
//TUB  DO 
/ / SQUKCPRT 
//PRINTER 
//SYSOUT 
//SVSPRINT 
//SYSUDUMP 
//OPLINE 
//OPIMCF 
// 

//OPCOMREC 

// 

//OPLGOGO 

// 

//OPLEXEX 

// 

//OPIEXOIR 

// 


PROC  A-A,B-8,BSZF!LE-,BSZFIL1«,BSZFIL2», 
CL-*»*«CL1-*»*»CL2-*,*, 

CHKDSP-DELETE.CHKID-' CCCHKI O'.CHKSP-O.CHKST-NEW, 

I S AM* *DUMM Y.F ILE*  ,ISAMl»*DUMMY.FILE* , I SAM2-* DUMMY. F I IE* 
JOBl I B* • FF  S. JOBL IB'  , 

LAB-SL, 

LIB«'DUMMY.FILE*,LIB1«*DUMMY.FILE* , L I B2- * DUMMY.F IL E • , 

L I BD I SP-SHR , 

NRMOSP-DELETE, 

PTFJOBL-'PTF.JOBLIB*  , 

RGN- 1 OOK • 

SAM-  • DUMMY.  F ILE  *,SAM1- 'DUMMY.  FILE*  , SAM2-* DUMMY.F ILE*  , 
STG-N I PH, 

TD  I SP-MOD , TRANS-*  CC TRANS* , 

UC HK-NIPW, 

UISAM-* (2314, PI*. 

UL  IB*2314,UUB1«2314,ULIB2»2314, 

USAM«*(  TAPE9, .DEFER  I * , 

UTRANS-NIPW, 

VISAM-.VI SAMI «»  VI SAM2-, 

VLIB-.VLIBI-.VLIB2-, 

VSAM-,VSAM1-,VSAM2-, 

VCHK-.VTRANS- 


CHARLES  W. 
DATE-MARCH 


HICKI  SCH 
1,  1974 


MAJOR, USA  PROJ  CC0E-763NIPS  BRANCH-431 


PGM-OP , REG 10N-CRGN 
DD  DSN-CPTFJOBL ,DI SP-SHR 
DO  DSN-CJOBL IB.DISP-SHR 

DO  OSN AME -G ISAM, 01 SP-SHR , UN I T-CUI SAM.VGLUME-CVISAM 
DD  DSN AME -CISAMl.DI SP-SHR , UNI T-CUI SAM, VOLUME -CV I SAMI 
DO  DSN AME-C I SAM2, 01 SP-SHR, UNI T-CUI SAM, VOLUME -CV IS AM2 
DD  DSNAME-CSAM. S.D I SP-SHR, UNI T-CUSAM, VOLUME- CVS AM, 

LABEL -I .CLABI .DCB-BLKS IZE -CBS2F ILE 
DO  OSN AME-C SAM l.S, 01 SP-SHR, UNI T-CUSAM, VOLUME -CVS AMI, 

LA  BEL -I , CLABI , DCB-BLKS I ZE-CBSZF IL 1 
DD  DSNAME-CSAM2. S, D I SP-SHR ,UN I T-CUSA M, V0LUME-CVSAM2 , 
LABEL-! .CLABI .OCB-BLKS I ZE-CBSZF  IL2 
OSNAME-CLIB.L,OISP-CLIBDI$P,VOLUME«CVLIB,UNIT-CULIB 
DSNAME-CL IB l.L ,D I SP-SHR , VOLUME- CVL! 61 , UN  I T-CUL I B I 
DO  SYSOUT-I CA , CCL I 
OD  SYSOUT-! CA, CCL I 
DO  SYSOUT-(CA.CCL) 

DD  SYSOUT -(CA.CCLI.DCB-LRECL-133 
OD  SYSOUT- (CA.CCLl I 
DD  SYS0UT-(CA,CCL2),DCB-LRECL-133 
DD  UNI T-CSTG, SPACE- ( TRK , (2 , II I ,DCB-I BLKS I ZE-400 , LRECL-80 , 
RECFM-FBi .DSNAME- CCHK 10. A, D ISP- (.CNRMDSP, CCHKOSP I 
DD  UNI T-CSTG, SPACE-1TRK,  (1,111, 

OISP-I ,CNR MDSP.CCHKOSPl .DSNAME- CCHKID.B 
OD  UNI  T-CSTG,  SPACE-!  TRK, (20, HI, 

01 SP- ( , CNR  MOSP ,CCHKOSP I .DSNAME-CCHKI O.C 
DO  UN! T-(  CSTG, SEP-OPLGOGOI • SPACE- 1 TRK, 1 20,1 1 I , 

01 SP- ( , CNRMDSP • CCHKDSP I .DSNAME-CCHKID.O 
OD  UNIT- (CSTG, SEP-I OPLGOGO .OPLEXEX! I , SPACE- I TRK, ( 20, 1)1 , 
01  SP-(, CNRMDSP, CCHKOSP I, DSNAME- CCHKID.E 


00000100 
00000200 
00000300 
, 00000400 

ooqoosoo 

00000600 

00000700 

00000800 

00000900 

00000910 

30001000 

00001100 

00001200 

00001300 

000Q1400 

00001500 

00001600 

00001700 

00001800 

00001900 

00002000 

00002100 

00002200 

00002300 

00002400 

00002500 

00002600 

00002700 

00002800 

00002810 

00002900 

00003000 

00003100 

X00003200 

00003300 

X00003400 

00003500 

*00003600 

00003700 

00003800 

00003900 

00004000 

00004100 

00004200 

00004300 

00004400 

00004500 

•00004600 

00004700 

X00004800 

00004900 

X00005000 

00005100 

X00005200 

00005300 

X00005400 

00005500 


NIPS  360  FFS 


PROCEDURES 


//OPPUNCH  DO  SYSOUT«£B  00005600 

//SLIB  DO  DSNAME»*.DL!B»DI SP*SHR  > UN  I T*£UL I B » VOLUME *£VL I B 00005700 

//  DO  DSNAME-*.Tl  IB, Dl SP-SHR, UNI T-6UL I B1 , VOLUME- £ VL IB l 00005800 

//  DD  DSNAME-£LIB2.L,01SP-SHR,UNIT»£ULIB2,V0LUME*£VLIB2 
//  DD  OSN«£PTFJOBL,OISP«SHR 

//  DO  DSNAHE-CJOBL  IB.OISP-SHR 

//CHECKDD  DO  D SNAME-CCHK ID,0 I SP- ( CCHKST , GNRMDSP .CCHKOSP I ,UN I T«£UCHK , 00006100 
//  VOLUME«£VCHK»  SPACE-(CYL»(£CHKSP,1) ) 00006200 

//STAT  DO  UNIT-£STG,SPACE«ICYL,(2, 1>)  00006300 

//TRANST  OD  OSN-GTRANS , VOL-fiVTRANS, UNI T-CUTRANS,  00006600 

//  DISP»£TOISP,SPACE»(TRK,  I)  000C6500 


NIPS  360  FFS 


PROCEDURES 


//XQRTQDF 

PROC 

A«A,BSZNEWF«1006,CL-' , •,CL1**, • ,OEN», 

00000100 

// 

JOBL IB-'FFS.JOBllB*  , 

00000200 

// 

LAB-,ODF«»CCOOFILE* ,OOISP«PASS, 

00000300 

// 

PTFJCBL-'PTF.JOBLIB*. 

00000310 

// 

OR  T-'CCQRTFILE* .RGN-60K , S AM» • DUMMY*  , TRCH*  , 

00000600 

// 

UQDF»NIPW,UORT»NI PW.USAM** 1 TAPE9, .OFFER) • , 

00000500 

// 

VODF  » » VOR  T» , VSA 

00000600 

//* 

00000700 

//*  CHARLES 

W.  HICK1SCH  MAJOR, USA  PRCJ  C00E-763NIPS  BRANCH»63l 

00000800 

//♦  OATE 

•MARCH  1.  1976 

00000900 

//* 

00001000 

//QRTQDF  EXEC 

PGM-UTQRTOOF.REGION-CRGN 

00001100 

//STEPLIB 

DO 

0SN«CPTFJ0BI,DISP»SHR 

00001200 

// 

00 

0SN»CJ0BL IB.DISP-SHR 

00001210 

//SY SPRINT 

DD 

SYSOUT  »l G A . CCL ) 

00001300 

//SYSUDUMP 

DO 

$YSOUT»<£A,£Clll 

00001600 

//QP.TFILE 

00  DSNAME«CQRT,UMT«CUQRT,VOLUME«CVCRT,DISP»  (SHR.CQD ISP, KEEP) 

00001500 

//ODFILE  DO  DSNAME»CQDF,UNIT«£UQDFtVOLUME«CVQDF,DlSP»<  SHR.CQDISP.KEEP) 

00001600 

//SAMFILE 

DD  OSNAME-CSAM.SfUNIT*CUSAM,VOLUME»CVSAM,CISP«< .KEEP  1, 

*00001700 

// 

DCB«(  TR  TCH»CTRCH, DEN»£OEN , BLKS  IZE*£BSZNEmF)  , 

00001800 

// 

LABEL-1 ,CLAB) 

00001900 

152 


--  - »-  


NIPS  360  FFS 


PROCEDURES 


//XOUIP  PROC 

A*  A , 

00000100 

// 

CL*,,,,CLl*,,,.CL2=',*, 

00000200 

// 

ISAMl*’ DUMMY. FILE*, ISA M2** DUMMY. FILE' , 

00000300 

// 

JOBLIB-'FFS.JOBLIB* , 

00000500 

// 

LI8=* DUMMY. FILE*, LIBl*' DU M MY. FILE* , 

00000500 

// 

PTFJOBL  = 'PTF.  JC1BL  IB’ , 

00000510 

// 

ORT**££ORTFILE*  , 

00000600 

// 

OOF-’CCODFILE* ,ODISP*PASS, 

00000700 

// 

RGN-92K.SDISP-SHR, 

00000800 

// 

SOURCL-'DUMMY.FILE*. 

00000900 

// 

STG=N IP M, TDISP-MOD, TRANS- *££TR ANS* , 

00001000 

// 

UI SAM1=* 12 315 .PI* .UISAM2-* I23l5.PI 

00001100 

// 

UL IB-2315, UL1B1-2315, 

00001200 

// 

UQDF  *NI PW , 

00001300 

// 

UQRT*NI PW , 

00001500 

// 

USOURCL-2315.UTRANS-NIPW, 

00001500 

// 

VI  SAM  1* , V I SAM2*  , 

00001600 

// 

VL IB-.VLrBl*. 

00001700 

// 

V0DF», 

00001800 

// 

VQPT-, 

00001900 

// 

VS OUR CL VTRANS* 

00002000 

//* 

00002100 

//* 

CHARLES 

M.  HICKISCH  MAJOR, USA  PRCJ  C0DE*763NIPS  BRANCH-531 

00002200 

//* 

DATE-MARCH  1,  1975 

00002300 

//* 

00002500 

//QUIP  EXEC  PGM=IP8ASE  .REGION* CPGN 


DD 

DD 

DD 

DD 

DD 


DSN-£PTFJOBL,DI SP-SHR 
DSN-£JOBLlB,D I SP-SHR 
SPACE* (TRK, (50, 1C)  I .UNI T-CSTG 
SPACE  = I TRK . ( 1.  1) ) .UNI T-6STG 
SPACE* (TRK,( 10, 101 ) , UNI T- I £ST G, SEP- SYSUT 1 ) 

DD  DSNAME-CLIB.L,UNIT*CULIO,VOLUME-£VLI8,DISP*;»nr 
DD  D SNAME  »£L I Bl.L , UNI T-£UL I B 1 , VOLUME* £VL 1 8 1 ,DI SP*SHR 
DD  DSNAME -£ JC8L IB.O I SP*SHR 

DO  OS NAME -CODE , UNI T=£UQDF , VOLUME'S V CDF, D ISP*ISHR,£QDISP»KEEP) 
DO  0 SNAME-GQRT, UNT T-CUQRT, VOLUME -CVORT.D ISP*! SHR, 6QDISP, KEEP! 

nCM-rfCAMi  iihifT.rnrCAUi  uni  .rnuui  nrco*  cud 


//STEPL  IB 
// 

//SVSUTl 
2/SYSUT2 
//SYSUT3 
//SLIB 
// 

// 

//qdfile 

// QRTF ILE 
//OATAFIL1 
//DATAFIL2 
//SOURCL 1 8 
// SOURCPRT 
//SYSUDUMP 
//SYSPRINT 

//STAT  DD  UbN— . 5T5UT  l , VUL-KEF-*.  SYbUI  l ,UI  iP-UJLU.  KAbil 
//TRANST  DD  DSN-CTR ANS, VOL-E VTR ANS ,UN I T* £UTR ANS ,D I SP-CTOI SP. 
II  SPACE*! TRK , L ) 


, SHR 


DD  0SN-EISAM1.UNIT-CUISAM1  , VOL-CV I SAMI , 0 I SP-SHR 
00  DSN -£ I S AM2 , UN I T-6U I S AM2 , VOL- £VI S AM2 , D I SP* SHR 
DD  DISP*£SDI$P,D  SN-CSOURCL. L . VOL*£VSOURCL .UN  I T*£U$rURCL 
00  SYSOUT  *( £A , £CL ) 

DD  SYSOUT- (CA.CCL1) 

DD  SYSOUT-! £A,£CL2) 

DSN-*.SYSUTl, VOL-REF-*. SYSUTl.OISP-lOLD.PASSI 


00002500 
00002600 
00002610 
00002700 
00002800 
00002900 
0000 3000 
00003100 
000032C0 
oooo:-3oo 

0 0003400 
00003500 
00003600 
00003700 
00003800 
00005100 
00005200 
00005300 
00005500 
00005500 
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NIPS  360  FFS 


PROCEDURES 


//XQUIPSD  PROC 
// 


// 

II 
// 

// 

// 

// 

II 
II 
// 

II 
U 
1 1 
II 
II 

n 
n 
u 
1 1 
n 
1 1 
n 
u 
// 

// 

// 
n 
// 
n 
1 1 
1 1 
//* 

//* 

//* 

//* 

//QUIP 


A-A.BSZFILE-, 

CL-‘»,»CL1-*»,»CL2*‘»,» 

FFT«‘DUMMY.FILE‘, 

FFTl-*DUMMY.FILE‘,FFT2« ‘DUMMY. FILE*  , 
ISAM- ‘DUMMY. FILE*  t 

I SAMI- ‘DUMMY. FILE* , I SA M2* ‘ DUMMY.F I LE ‘ , 
JDBLIB-‘FFS.JOBLIB‘ , 

LAB-SL, 

L!B-‘DUMMY.FILF‘tLI0l-‘DUMMY.FILE‘t 
PTF JOBL-*  PTF. JOBL I8‘ t 
0DFSP»‘(5,I)‘, 

0RTSP-‘I2,I»‘, 

RGN-92K. , 

SAM* 'DUMMY. FILE*  *SDISP»SHRt 
SORTSP- • ( 2 1 1 ) • * 

SOURC  L* ‘DUMMY. F IL  E • t 

STG-N IPH, TDISP-MOD, TRANS** CC TRANS* , 

UFFT-‘I231*.P>‘, 

UFFT1-* (23I4.P) ',UFFT2*'(2314,PJ  • , 
UISAM-‘(2316,P)‘, 

UI SAMI*‘I23I4»PI‘tUI SAM2-* (2314*P)  • , 
ULIB-23IA.ULIB1-23I4, 

USAM-MTAPE9,  .DEFER)  •, 

USOURCL-23 14.UTRANS-NIPW. 

WFFT*, VFFTI-.VFFT2-, 

VI  SAM*. 

VI  SAM1-.VI SAM2-, 

VL IB-.VLI B l*. 

VS AM* . 

VSOURCL* . V TRANS*. 

XINDEX* ‘DUMMY. FILE' , 

XUNIT-2314.XVOL* 


CHARLES  W. 
DATE-MARCH 


HICKI SCH 
1.  A974 


MAJOR, USA  PRO J C0DE-763NI PS  BRANCH-431 


EXEC  PGM-I PBASE .REGION-CRGN 


// STEPLIB 
II 

// SYSUT l 
//SYSUT2 
//SYSUT3 
//5YSUT4 
//SLIB 
// 

// 

// OATAFILE 
//0ATAFIL1 
//DATAF1L2 
// SAMF  ILE 
// 

//FFT 
// 

II 
II 

//FFT1 
// 


DO 

DO 

PO 

DD 

DD 

OD 


00 


00 


DSN-CPTFJOBL ,DI SP-SHR 
DSN-C JOBL I B.OI SP*  SHR 
SPACE-ITRK, (50, 101 ) .UNIT-CSTG 
SPACE- (TRK, ( l, l) ) .UNIT-CSTG 
SPACE* ( TRK « ( 10, 10) ), UNIT- (CSTG, SEP- SYSUT II 
SPACE-ICYL , (0,01 ) .UNIT-CSTG 
DO  DSNAME-CL IB.L , UNIT-CULIB, VOLUME-CVL IB, D I SP-SHR 
DO  0 SNA ME -CLIBl.L.UNIT-CULIBl.VCLUME* CVL IBl.DISP-SHR 
DD  DSNAME-C JOBL IB ,DI SP-SHR 

OD  DISP-SHR.DSNAME-CISAM, UNI T-CUI SAM, VOLUME-CV ISAM 
DD  DSN- Cl SA Ml , UNI T-CUI SAMI .VOL-CVI SAMI ,DI SP-SHR 
DD  DSN-C I SAM2.UNIT-CUISAM2, VOL-CVI SAM2.DI SP-SHR 

DD  DI SP-SHR, OSNAME-CSAM.S, UNI T-CUSAM, VOLUME-CVS AM, 

LABEL*! , CL  AB) , DCB- (REC FM-VB, LRECL- 1000, BLKSI ZE-CBS2 F ILE ) 
DSN-CFFT, 

UN IT-CUFFT , 

VOLUME- CVFFT, 

DI SP-SHR 
DSN-CFFTl  , 

UNI T-CUFFT1 , 


00000100 

00000200 

00000210 

00000220 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

00001100 

00001200 

00001300 

00001400 

00001500 

00001510 

00001520 

00001600 

00001700 

00001800 

00001900 

00002000 

00002010 

00002100 

00002200 

00002300 

00002400 

00002500 

00002600 

00002700 

00002800 

00002900 

00003000 

00003100 

00003200 

00003300 

00003400 

00003500 

00003600 

00003700 

00003600 

00003900 

00004000 

00004100 

00004200 

00004300 

00004400 

*00004500 

00004600 
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PROCEDURES 


: 

I 


//  VOLUNE’tVFFTl, 

//  DISP’SHR 

//FFT2  DO  0SN’£FFT2t 
//  UN  I T’tUFF  T2. 

//  VOLUME-CVFFT2, 

//  DISP’SHR 

//SOURCUB  OD  DISP-CSDI  SP , D SN= CSOURCL. I , VCL’GVSOURCL , UN  I T» CUSDUP CL 
//SOURCPRT  DO  SYS0UT«(CA,6CL> 

//SYSUDUNP  DO  $YS0UT»(£A,6CL1) 

//SYSPRINT  DD  SYSOUT*< £A , CCL2 ) 

//PB  DD  UNlT*GSTG.SPACE«(CYL.£COFSP» 

//KEY  OD  UNIT»6STG.SPACE’(CYL,6CRTSP> 

// SORTWKOl  DD  UNIT*£STG»SPACE’(CYL»£SCRTSP) 

//S0RTHK02  DO  UN  I T*£ STG . SP ACE* (C YL. GSCRTS P ) 

//S0RT*K03  OD  UNI T-£ STG , SPACE’ (CYL * GSCR TSP ) 

//SORTWKOL  OD  UNlT*CSTG,SPACE«ICYL.GSORTSP) 

//STAT  DD  OSN»*.SYSUTl,VOL*REF»*.SYSUTl,OISP=(OLO,PASS) 

//TRANST  DO  DSN’GTR ANS  t VQL’G VTRANS  »UNI T*£UTRANS»DISP=£TDISP» 

//  SPACE»«TRK,l) 

//XINOEX  DO  CSN=£X INDEX. X* UNIT’GXUN IT iVCL’GXVOL'DI SP’SHR 


00004800 

00004900 

00005000 

00005100 

00005300 

00005400 

00005500 

00005600 

00005700 

00005800 

00005900 

00006000 

00006100 

00006200 
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//XRASP 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//* 

//* 

//* 


PR  DC  A*A,BSZFILE*»BSZFIL1*»8SZFIL2*, 

CL-' , • ,CL 1-* . ISAM*’ DUMMY. FILE* , I S A Ml* • DUMMY. F I LE • , 
ISAM2*'DUMMY.FILE'»J08L  I fi* • FF  S.  JOBL  IB*, 

JORMAC *• FFS. JOB MACRO' ,LAB*SL,L IB*' DUMMY. F I LE'  , 

L IBD I SP*SHP , L I 01  = ' DUMMY. F I LE *«LIB2*'DUMMY.FILE'  , 

PTFJCBI ='PTF. JQBLIB' , PTF JOB M* • PTF . JOB" AC RP ' , 

QDF- 'GGQOFILE'.QDFSP*'  < 50,10)' , CD  I SP«P A S S, QRT* • GGQRTF  1LE* 
QRTSP*'!  10, 10)'  .RGN-IOOK.SAM-'OUMMY.FILE*  , 

S AMI =• DUMMY. FI LE', SAM2*' DUMMY. FI LE* , SO  I S P= SHR, SCR T SP*2  0 , 
SOUP  CL* • DUMMY. F I LE  • , STG  = N I P tf,  TD  ISP-MOD  , TR  ANS*'  GGTRANS* , 

U I SA  M= • I2314.PI* ,ULIB=2314,ULI Bl*231 4 , UL I B2* 23  14, 

UQDF  =N IPW,UQRT=NI PW.USAM*' (TAPE9, .DEFER  )• , USOURCL* 23 14 , 
UTPANS-NIPW, VISAM-,VISAM1*,V1SAM2*, VLI9-, VLIBl-.VL IB2= , 
VQOF  =, VQR  F=, VSAM=,VSAMl=,VSAM2=,VS0URCL=,VTRANS*, 

XD ISP* SHR , XI NDEX  = * DUMMY. FILE' , X I NDEX 1 = • DUMMY. F I LE  • , 

X INDEX 2=' OUMMY.F I L 6 • , XUN I T*23 14 , X VOL  = , X VOL  1* , X VCL2* 


CHARLES  W. 
DAT  E = M AR  CH 


HICKISCH 
1,  1974 


MAJOR, USA  PPCJ  CCDE  = 763  NIPS  BRANCH-431 


//* 

//RASP  EXEC  PGM-R  SEXEC  »REGI ON  = GRGN 
//STEPLIB  DD  0 ISP  = SHR,USN*GPTFJQBL 


// 

//DATAFILE 

//DATAFIH 

//0ATAFIL2 

//SAMFILE 

// 

// S AMF IL  El 
// 

//SAME ILE2 
// 

//QDFILE 

// 

//SORTOUT 

// 

// 

//SORT  IN  DD 
//SOPTWKO 1 
//S0RTWK02 
// 

//S0PTWK03 

// 

//SORT  WK04 
// 

// 

//S0RTWK05 

// 

// 

//SORTWK06 

// 

// 

// SY  SL  MOD 
// 

//OLIB  DD 
// TL  IB  DO 
//SLIB  DD 


DD 

DD 

DD 

DO 

DO 

DO 


DISP*SHR,DSN*6J0BLI B 

DSNAME-G ISAM,DISP=SHR,UNI T-GU I SAM, VOLUME *6 V I S AM 
0SNAME=61SAM1,DISP=SHR,UNIT*GUISAM,V0LUME*GVISAMI 
OSNAME=t ISAM2.0I SP-SHR , UNIT* GUI  SAM, VOLUME -GVI SAM2 
DSNAME-G SAM. S, 01 SP-SHR, UNIT* GUSAM, VOLUME =6VSAM, 

LABEL*! .GLABI .DCB-BLKSIZE-GBSZFILE 

DSNAMF*GSAMl.S,DISP=SHR,UNlT=GUSAM,vnLUME-CVSAMl, 

LABEL*!  , GL  AO ) ,DCB=BLKSIZE-GBSZFILl 
OD  DSNAME=GSAM2.S,0ISP*SHR,UNIT*GUSAM,V0LUME*GVSAM2, 
LABEL*! , GL  AB) ,OCB=BLKS  IZE*GBSZF IL2 
DD  PSNAME»GQDF,UNIT*( GUODF ,SEP*DATAFILEI .VOLUME *GVQDF , 
SPACE-iCYL ,GODF SP ) , D I SP* ! , GODI SP , DE LE TE  ) 

DD  DSNAME* GO RT,UNIT*IGUORT,SEP*(CATAFILE, QDFILE ) ), 

VOLUME*GVQRT, SPACE* 1CYL.GQRTSP) ,DI SP* ! , GQDI SP , DFLET E I , 
DC  B* ! RECFM*  8 , LRECL* 10  1 1 , BLKS  IZE-1 0 15 ) 

DSNAME**. SORTOUT, VOL UME=REF=*. SORTOUT ,0  I SP*! CLO, PASS) 

DD  SPACE  *! CYL  .(GSORTSPI , ,CONT !G I ,UNI T* ( GSTG , SEP* SORT  I N ) 

DO  SPACE*!CYL,!GSORTSP) , .CONTIGI  , 

UNIT*!GSTG,SEP*S0RTWK01 ) ,SEP*S0RTMK01 
DD  SP ACE- ! C YL ,!GSORTSP) , , CONTIGI  , 

UNIT=!GSTG,SEP=SORTWK02) , SEP-S0RTWK02 
OD  SPACE-!  CYL ,! GSORTSPI ,,CONTIG I , 

UNIT-I6STG.SEP-! SORTWKO 1 , SOR  TWK03 1 I , 

SEP*! SORTwKOl , S0RTWK03  I 
DD  SPACE-! CYL, I GSORTSPI , .CONTIGI , 

UNIT*!GSTG,SEP-!S0PTWK02,S0PTWK04) I , 

SEP-! SOR  TWK02.SORTWK04) 

DD  SPACE-!  CYL , I GSORTSP I , .CONTIGI , 

UNI T-< GSTG, SEP-! SOPTWKO 1, SOR TWK03, SORTWK05I I , 

SE  P» 1 SORT  MKOl , SOP  TWK03 , SORT  wK05 I 
DD  UNI T-GSTG, SPACE* ( TRK ,!40, 20,201 1 , OCB* S YS 1 . L I NKLI B , 
LABEL-EXPDT-66366 

DSNAME-GL IB.L , DISP-GLIBDISP, VOLUME -GVL IB, UNIT- GUL  IB 
D SNAME  «G LIB1.L,0ISP-SHR, VOLUME -CVLIB1, UNI T-GULIBl 
DSNAME «*.SYSL MOD, 01 SP«!OLD,PASSI , VOLUME-PFF-* .SY  SLMOO 
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00000100 

00000200 

00000300 

00000400 

00000500 

00000510 

00000600 

00000  700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 

00001  BOO 
00001900 
00002000 
00002100 
00002110 
00002200 
00002300 
00002400 

X00002500 
00002600 
X00002700 
00002800 
*00002900 
00003000 
X00003100 
00003200 
X00003300 
X00003400 
00003500 
00003600 
00003700 
X 00003800 
00003900 
X00004000 
00004100 
X00004200 
X00004300 
00004400 
X 00004500 
X00004600 
00004700 
X00004800 
X00004900 
00005000 
X00005 1 00 
00005200 
00005300 
00005400 
00005500 
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//  00  DSNAME«*.DL  IB,DISP«SHR,UNIT”£ULIB,VOLUME»£VLIB 

//  DD  DSNAME=*«TL I B*  01 SP“ SHR,  UNI T*  CUL I81,V0LUME”EVLIB1 

//  DO  D$NAME”£L I B2.L , 0 I SP*SHR,  UNIT*£ULIB2  , VOLUME ”EVL l 82 

//  00  DSNAME”£ JOBL  IB,DISP*SHR 

//SORTLIB  DO  01 SP*SHR,DSNAME”SYS1.S0RTLI B 

//SYSLIB  DD  OJSP«SHR,DSN»£PTFJOBM 

//  DD  01 SP*SHR,DSN»£JOBMAC 

//  00  01 SP*SHR,0SNAME«SYS1.MACLIB 

//DPUNCH  DD  DSNAME”*.SORTWK04,VOLUME”REF»*.S0RTWK04,D!SP«(0LD,PASSI 
//SYSUT 1 DD  DSNAME”*.SORTWKOl * VOLUME* REF**. SORTWKO 1 ,0 ISP»< OLO, PASS ) 
//SVSUT2  DO  DSNAME»4.S0RTNK05,V0LUME*REF”*.S0RTWK05 ,DI SP” ( OLO, PASS ) 
//STEREO. DO  OSNAMF”*.SORTWK06,  VOLUME *PEF”*« S0RTWK06 , DI SP”( OLD , PASS ) 
//STROUTOO  DO  UNIT»£STG,SPACE=<TRK,(50,20)) 

//SYSUT 3 00  DSNAME»*.SORTWK06, VOLUME-REF »*. SCRTWK06 ,DI SP«( OLO.P ASS  I , 
'/  DCB”(BLKSIZE”80,LRECL”80) 

/.'ASSFMIN  OD  UNIT=£STG,SPACE»(TRK,<50,5))  ,DCB”BLKS!ZE»400, 

//  DISP'IMOO, DELETE) 

//RSIPOS  DO  UNIT”£STG,SPACE”(TPK,(3,1,1)) 

//NAME TAB  DD  D SNAMF A SSEM IN , VOLUME-REF =*. ASSEM IN , D I SP” ( OL D , PASS ) 
//SOURCPRT  DD  S YSOUT”< £ A , GCL ) 

//SOURCLIB  DO  DISP-ESDl SP ,D SN-GSOURCL . L , VOL-CVSOUPCL  ,UNI T-CUSOURCL 
//SYSPRINT  00  SYSOUT  = ( £A  , CCL ) 

//SYSOUT  OD  SYSOUT”(£A,£CL) 

//SYSUDUMP  OD  SYSOUT” ( £A  * GCL l ) 

//STAT  00  DSN«*.ASSEMrN, VOL ”REF«*. A SSEMZ N.OI SP»(OLD, PASS) 

//TRANST  00  DSN=CTRANS. VOL-GVTRANS ,UNI T-GUTRANS.D I SP”t TO! SP , 

//  SPACE” ( TRK , ( 1 ) ) 

//XINDEX  OD  DSN«GX!NDEX.X,VnL»CXVOL,UNIT”GXUNIT,DISP«CXDISP 
//XINOEXl  00  DSN»£XIN0!EX1.X,V0L”EXV0L1 ,UN I T-CXUNIT ,0 ISP”CXDI SP 
//XIN0EX2  00  0SN=CXIN0EX2.X,V0L«6XV0L2,UNIT»£XUNIT,0ISP”£XDISP 
//PRINTER  DD  SYSOUT* ( GA , £CL > 

//6VSDUMMY  DO  DUMMY 


00005600 

00005700 

00005800 

00005900 

00006000 

00006100 

00006110 

00006200 

00006300 

00006400 

00006500 

00006600 

00006700 

00006800 

00006900 

C00007000 

00007100 

00007200 

00007300 

00007400 

00007500 

00007600 

00007700 

00007800 

00007900 

00008000 

00008100 

00008200 

00008300 

00008400 

00008500 

00008600 


I 
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//XRASPEX  PROC  A-A,BSZFILE-,BSZFILI«,BSZFIL2*, 


// 
// 
// 
// 
II 
II 
II 
// 
II 
1 1 
II 
II 
II 
II 
II 
// 
//• 
//* 
//* 


CHKDSP-DELETE.CHKID-*  CCCHKID' ,CHKSP-0,CHK$T-NEW, 

CL-* , * ,CL l* • * ' * I SAM** DUMMY. FILE' .ISAM1-* DUMMY. FILE* . 

I SAM 2*  * DUMMY. FILE**JOBLIB-*FFS. JOBL I B' .LAB-SL, 

L IB- 'DUMMY. FILE* ,L I BO  I SP- SHR , L IBl»*DUMMY.F  HE* , 

L 1 B2-*  DUMMY .FILE * ,NRMDSP-DELETE,QDF«* CCQDF ILE* , 
PTFJOBL-'PTF.JOBLIB* , 

QDFSP-M50,  10)  • ,QDISP-PASS.QPT»*CCQRTFTLE* , 

ORTSP*'! 10, 10) • .RGN-100K, SAM*' DUMMY. FILE* , 

SAMI- 'DUMMY. FILE* ,SAM2-« DUMMY. FILE* , SORTS P-20, ST G-NIPM, 
TO ISP- MOD .TRANS-*  ECTRANS,tUCHK*NIPW»UISAM«,(2314*P),t 
ULIB-2314.UL  I81-2314,ULIB2«2314,UQDF-NIPW,UQRT-NIPW, 
USAM-*C  TAPE9,, DEFER) * , UTRANS-NI PW , VCHK-, V l SAM- , V IS  AMI- , 
V ISAM2-, VLlB-,VLIBl-,VLIB2-,VQDF-,VQRT»,VSAM-,VSAMl*f 
VSAM2-»VTRANS-»XDISP-SHR»XINDEX-*  DUMMY .FILE** 

X INDEX 1-* DUMMY. F ILE*, XI NDEX2- • DUMMY. F ILE* • XUNI T =2314, 

X VOL  »♦ X VOL l- .XV0L2- 


CHARLES  W.  HICKISCH 
DATE-MARCH  l,  1974 


MAJOR, USA  PRCj  CODE-763NI PS  BRANCH-431 


//• 

//RASP  EXEC  PGM-R  SEX  EC .REGION-CRGN 
//STEPLIB  00  DSN-CPTFJOBL.DISP-SHR 

II  DD  OSN-C JOBL 18  »D I SP- SHR 

//DATAFILE  DD  DSN AME-C I SAM, D I SP* SHR , UNI T-CUI SAM, VCLUME-CV I S AM 
// DATAFILl  DD  OSNAME-CISAMl.DI SP- SHR, UNI T-CUISAM,VCLUME-CVISAM1 
// DATA F IL2  DD  DSNAME-C I S AM2 , DI SP-SHR , UNI T-CUI SAM , VOLUME-CV I SAM2 
//SAMFILE  DO  DSNAME-CSAM.S.DI SP-SHR, UNI T-CUSAM, VOLUME- CVS AM, 

//  LABEL-! ,CLAB),DCB-BLKSIZE-CBSZFILE 

//SAME ILE1  DQ  DSN AME-CSA M 1. S,D I SP- SHR, UNI T-CUSAM, VOLUME* CVS AM  1 , 

II  LABEL-!  , CL AB) .DCB-BLKS I ZE-CB SZF IL 1 

//SAMFILE2  OD  OSNAME- C SA M2. S,D I SP-SHR.UN I T-CUSAM, VOLUME- CVSAM2, 
LABEL-! ,CLABI , DCB-BLKS IZE-CBSZFIL2 
DD  DSNAME-CQDF.UNIT-ICUQDF.SEP-CATAFILE) .VCLUME-CVQDF, 
SPACE-ICYL,CQDFSPI,0ISP-1 , COO  I SP , CCHKOSP  ) 

DO  OSNAME- CURT, UN! T« ! CUQRT, SEP* iCATAF I LE.QDF ILE I ) , 

VOLUME-CVQRT, SPACE- <CYL .CQRTSPI ,DI SP- I , CODI SP .CCHKOSP ) , 
K 8- IRECFM-VB.LR EC L-1011.BLKSIZE-1015) 

//SORT  IN  DD  DSNAME-*. SOR TOUT , VOL UME-REF-*. SORT OUT ,DISP»ICLD,PASS) 

/ / SOPTMKO 1 DD  SPACE-iCYL.iC  SOR  TSP I ,, CON TIG) ,UNI T- ( CSTG, SEP- SORTIN ) , 

01 SP- I, CNR MDSP, CCHKDSP ) , OSNAME-CCHKID.A 
SPACE«!CYL,!CSORTSPJ ,,C0NTIG1 , 

DI SP- (, CNR MDSP, CCHKOSP ) , DSNAME-CCHK ID. B, 

UNIT-ICST  G, SEP- SORT WK01 ) .SEP-SORTMKOl 
SPACF-ICYL,! C SOR TSP ),,CCNTIG), 

01 SP-I, CNR MDSP, CCHKDSP I ,OSNAME-CCHK ID. C, 

UN  IT- 1 C ST  G, SEP- SORT MK 02) , SEP- SORT MK02 
SPACE-ICYL,!CSORTSP),,CONTIG), 

D! SP- I, CNPMOSP, CCHKDSP ), DSNAME-CCHK ID. D, 
UNIT-!CSTG,SEP-iS0RTMK01,S0RTMK03) ) , 

SEP-! SORTMKOl .S0RTWK03 ) 

SPACE -! CYL , I C SOR TSP l,,CONTIGI, 

DI SP- ! ,CNR MDSP, CCHKDSP) , DSNAME-CCHK ID. E , 

<JN I T - ( CSTG , SEP- ( S0RTWK02  , SGPTMK04 ) ) , 

SEP- ! SORTWK02 ,S0R TMK04 I 
SPACF-ICYL  , I CSORTSP) ,,CONT!G), 

01 SP-I , CNR MDSP, CCHKOSP) .DSNAME-CCHKID.F, 
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II 

//OOFILE 

II 

//SORTOUT 

II 

II 


II 

//SORTWK02  DD 
// 

// 

//S0RTWK03  DD 
// 

// 

//S0RTHK04  DO 
// 

// 

// 

//S0RTHK05  DD 
// 

// 

// 

//SORTWK06  DD 
// 


00000100 
00000200 
00000300 
00000400 
00000500 
00000600 
0U000610 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 
00001800 
00001900 
00002000 
00002100 
00002200 
00002210 
00002300 
00002400 
00002500 
X00002600 
00002700 
X 00002800 
00002900 
•00003000 
00003100 
X00003200 
00003300 
X00003400 
X00003500 
00003600 
00003700 
X00003800 
00003900 
X00004000 
X 00004 1 00 
00004200 
X00004300 
X00004400 
00004500 
X00004600 
X00004700 
X00004800 
00004900 
X00005000 
X00005 100 
X00005200 
00005300 
X00005400 
X00005500 


. 


NIPS  360  FFS 


PROCEDURES 


//  UNIT«I£STG,SEP-ISORTNK0l.S0RTWK03,SORTWK05>> , X00005600 
//  S£P«( SOR TNKOl » SOR TWK03 »SORTWK05)  00005700 
//SYSLMOP  OD  LABEL«EXPDT*66366,SPACE-1TRK,|60,20,20) » .OC0-SYSI.L INKL IB. X00005800 
//  UNIT«£STG.DSNAME»£CHKIO.G,DISP»(.£NRMDSP,£CHKDSP>  00005900 
/ / OL  IB  00  nSNAME-CUB.L,OISP«GUBCISP.VOLUME«CVllB,UNIT»£UL!B  00006000 
//TUB  00  OSNAMF-CLIB  l .L  ,0  I SP-SHR , VOLUME«£ VL IB1 , UNI T- £UL IB  1 00006100 
//St  IB  DD  DSNAME*A.SY$LMOO*DISP-l OLD » PASS  I * VOLUME -PE F-*.SYSL MOD  00006200 
//  DD  DSNAME«*.DL I B, 01 SP* SHR , UNIT*£UL IB , VOLUME-fi VLI B 00006300 
//  OD  OSNAME »* .TL I B» DI $P- SHR* UNI T« CUL l B1 * VOLUME-CVL I B 1 * 00006600 
//  DD  DSNAMF-Cl I B2 .L . D I SP-SHR, UN  I T-CUL I B2 , VOLUME-EVL I B2  00006500 
//  Or  DSNAME*£ JOBL  IB  »D ISP-SHR  00006600 
//SOSTLIB  00  OISP-SHR,OSNAME»SYSl.SORTLIB  00006700 
//SYSUTl  DD  DSNAME-*.SORTMKOi,VOlUME-REF-P.SORTMKOlfD!SP»IOLOiPASSJ  00006800 
//STEREO  OD  DUMMY  00006900 
//STROUTDD  DD  UNIT«£STG,SPACEMTRK,  150,201),  X00007000 
//  DISP-l.£NRMDSP,£CHKDSPI.DSNAME«£CHKIO.H  00007100 
//RSIPDS  DD  UNIT«£STG,SPACE-ITRKt13,l,l)I , X00007200 
//  OISP-(f£NRPDSP,£CHKOSP(.DSNAME*£CHKlO.I  00007300 
//NAMETAB  DD  UN  IT -£$TG,DCB-B LKSI ZE -600.SPACE-I TRK , 1 5 , 1 II . X 00007600 
//  OISP»( ,£NRMDSP,£CHKDSP) .DSNAME-ECHK I D. J 00007500 
//SYSOUT  DD  SYSOUT-IEA.CCLI  00007600 
//SYSPBINT  DD  SYSOUT >( £ A t £CL ) 00007700 
//SYSUDUMP  DD  SYSOUT-lEA, £CL1)  00007800 
//CHECKDD  DD  D SNA ME*  ECHKID»D1SP”1ECHKST,£NRMDSP»ECHKDSPJ»UN I T-EUCHK t 00007900 
//  VOLUME*£VCHK,SPACE«(CYl,(£CHKSP,l» ) 00008000 
//STAT  OD  UNIT«£STG,SPACE»(CVLf(2tll)  00008100 
//TRANST  DD  DSN*£TRANS,VOL*£VTRANStUNIT«£UTRANS.OISP»£TOISP,  00008200 
//  SPACE  *1 TRK  till)  00008300 
//XINOEX  DD  DSN»£XINDFX.X|V0L»£XVCL,UNIT-£XUNIT,D1SP*£XD1SP  00008600 
/ /X » NOE  X 1 DD  OSN-EXINDEXl.X.VOL-EXVOll, UNIT-EXUNIT, OISP-EXDISP  00008500 
//XINDEX2  DD  DSN-CX INDE X2. X , V0L-6XVCL2 ,UNI T-EXUNI T , D I SP-£ XC ISP  00008600 
//SDURCPRT  DO  SYSOUT- ( £A  ,£CL ) 00008700 


NIPS  360  FFS 


PROCEDURES 


//XRESTANS 

// 

// 

// 

//* 

1 1* 

//• 

//* 

/ /RSTQRT 


PROC  A *A  , CL* • • •»LAB*BLP»  QDF  * • ££QDF I LE ' . 
QOFSP*' (50, 10) • ,ODlSP«PA$S.QRT*•EEQRTFILE•  , 
QRTSP*'! 10,101 • ,UQDF*NIPW,UQRT*NI  PH, 
VQDF*,VQRT», VTAPE* 


CHARLES  W.  HICKISCH 
DATE*MARCH  1,  197* 


MAJOR, USA  PRO J C0DE*763N IPS  BRANCH*431 


EXEC  PGM-IEBGENER 


//SYSUTI  00  DSNAME*QRTXXX,UN I T.TAPE9, VOLUME *EVT APE, 01 SP=(0L0,  PASS)  , 

//  LABEL*! ,£LAB) , DCB* ( RECFM* VB , LRECL* 1000 , BLKS I ZE* l 004 ) 

// SYSUTZ  00  0 SNAME * £QRT, UNI T=EUQRT, VOLUME =£VQRT,D I SP-! , £00  I SP, DEL ETE ) 

//  SPACE*!CYL,£QRTSPJ, 

//  DC  B=  ( RECFM*  VB,  LRECL*  1000,  BLK  SUE*  l 004) 

//SYSPRINT  00  SYSOUT«(£A,£CLI 
//SYSIN  00  DUMMY 

//RSTUDF  EXEC  PGM* IEBGENER.COND*! 0, NE, RSTQRT) 

//SYSUTI  00  DSNAMF.QOFXXX, VOLUME *REF *♦. R STQR T. SYSUTI , 

//  01 SP* (OLD, KEEP ), LABEL* ( 2, CLAB) , 

//  DC B* < RECFM* VB, LRECL* 1000, BLKS UE= l 004) 

//SYSUT2  00  0 SNA ME  =£QOF , UN  I T*£UQDF , VOLUMF*  £VQDF ,01 SP*( , £00 1 SP , CEL  FT E ) 

//  SPACF*! CYL  .6Q0FSP) , 

//  DCB=!RECFM*VB,LRECL*1000,BLKSUE*1004) 

//SYSPRINT  00  SYSOUT*! £A, £CL ) 

//SYSIN  00  DUMMY 


00000010 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
00000080 
00000090 
X00000100 
00000110 
.X00000120 
X00000130 
00000140 
00000150 
00000160 
00000170 
X000001B0 
X00000190 
00000700 
, X000002  10 
X00000220 
00000230 
00000240 
00000250 


N r PS  360  FFS 


PROCEDURES 


//XRESTLIB  PROC  A*A ,CL»* , ' »LAB*BlP,LIB«NONE ,NOISP=KEEP, 

//  SEQN0-i,STG-NlPW,ULIB»2314,VLIB«, VTAPE*,VWORK= 

//* 

//*  CHARLES  W.  HICK! SCH  MAJOR, USA  PRCJ  CCDE-763NIPS  BRANCH-431 
//♦  DATE-MARCH  l,  1974 
//• 

//RESTLIB  EXEC  PCM* I EHMCVE 

//SYSUTl  OD  UNIT-tSTG.SPACE-(TRK,40» , VCLUMF-GVWnRK 
//DISK  OD  UNIT-GUL !H, YOLUME-GVL I B ,D I SP-OLD 
//TAPE  DO  DSNAMF*6LIB.L,UNIT»TAPE9f VOLUME- CVTA PE , 

//  DC B* I RECF M*FB, LRECL -80»BLKS1ZE*800)  , 

//  LABEL-! GSEONO, CL AB) , 01 SP- 1 OL C , END  I SP  ) 

//SYSPRINT  DD  SYSOUT-tGA.GCL) 


00000010 

00000020 

00000030 

00000040 

00000050 

00000060 

00000070 

00000080 

00000090 

X00000100 

X00000110 

00000120 

00000130 


J 
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MIPS  360  FFS 


PROCEDURES 


//XSAVFANS  PROC  A «A ,CL* • • • , LAB*BLP , QDF «• CCQOF I LE*  , 

//  QDI$P*PA$S»QRT* • CCQRTF  I LE  • , UCDF*N l P )«,  UQRT*NI  PW , 

//  VQOF*, VQRT-.VTAPE* 

//* 

//*  CHARLES  W.  HICKISCH  MAJOR, USA  PROJ  C00E*763NIPS  BRANCH**31 
//*  DATE-MARCH  1,  197* 

//• 

//CPYQRT  EXEC  PGM*  IEBGENER 
//SYSPKINT  DO  SY SOUT * ( £A  > £CL  ) 

//SYS'JTl  OD  DSNAME  »CQR  T , UN  I T-CUQRT  ,VOLUME*tVQRT, 

//  01 SP*IOLD,CODISP,KEEPJ , 

II  DCB*(RECFM*VB,LRECL*1000,BLK$IZE*100*) 

//SYSUT2  DO  DSNAME*QRTXXX,UNIT*TAPE9,V0LUMF»CVTAPE,0ISP*(.PASS) , 

//  LABEL*!  ,CLAB)tDCB*(RECFM*VB,LRECL*1000,8LKSIZE*100*l 

//SYSIN  00  DUMMY 

//CP  YOOF  EXEC  PGM* IE BGENER»C ON D*(0,NE, CPYQRT) 

//SYSUTl  DD  OSNAME*CQOF,UNIT*tUQDF,VOLUME*tVQDF, 

//  01 SP* ( OLD, CQD I SP ,KE EPI > 

//  DC8*(RECFM*VB»LRECL*1000,BLKSIZE*1 00* ) 

//SYSUT2  00  DSNAME-ODFXXX, VOLUME-REF**. CPYQRT. SYSUT2, 

//  OISP-IOLO.KEEP) .LABEL* (2,CLAB) , 

//  DCB-(RECFM*V8,LRECL*l000.BlKSIZE*10O*l 

//SYSPRINT  DD  SYSOUT *( t A , CCL ) 

//SYSIN  00  DUMMY 


00000010 

00000020 

00000030 

000000*0 

00000050 

00000060 

00000070 

00000080 

00000090 

XOOOOOIOO 

xooooono 
00000120 
X 000001 30 
000001*0 
0000,0150 
00000160 
X00000170 
X00000180 
00000190 
X00000200 
x 000  002 1 0 
000 00220 
00000230 
000002*0 


NIPS  360  FFS 


PROCEDURES 


//XSAVEL IB  PROC  A-A , CL- • , • . LAB-BLP, L I B-NONE , NOI SP-KEEP, 

//  SEQN0=1,STG=NIPW,ULIB»2314, VL l B-, VT APE- , VWORK- 

//* 

//*  CHARLES  W.  HICKISCH  MAJOR, USA  PROJ  C0DE-763NIPS  BRANCH-431 

//*  DATE-MARCH  l,  1974 

//* 

//SAVELIB  EXEC  PGM- I EHMCVE 

//SYSUTl  DD  UNIT-£STG,SPACE-(TRK,40), VOLUME-£ VWORK 
//DISK  DO  UN  IT- CUL IB,VOLUME-£VLlB,DISP-OLD 
//TAPE  DD  DSNAM  E-£LIB«L,UNIT-TAPE9, VOLUME -CVTAPE , 

//  0CB-IRECFM-FB,LRECL«80,8LKSIZE-800I , 

//  LA BEL- 1 CSEQNO,£L AB) ,DI SP* IOL0, £ND I SP ) 

//SYSPRINT  DD  SYSOUT  »(  £A , tCU 


00000010 

00000020 

00000030 

00000040 

00000050 

00000060 

00000070 

00000080 

00000090 

X00000100 

X00000110 

00000120 

00000130 


NIPS  360  FFS 


PROCEDURE  S 


//XSP 

// 

// 

// 

// 

// 

1 1 
II 
II 


PROC  A=A, BLK SIZE -560, BSZFILE-.BSZNEWF*, 

CL*1  , '.CU*'  . * «DEN**ISAM»,OUMMY.cILE'  , 

JOBL I B«* Ff  S. JOBLI  B* . L AB-SL , L I B« ‘ DUMMY. F ILE* . 
NBPBLK=200,RGN* 100K , SAM= ' DUMMY. F I LE* , 
PTFjOBL-'PTF.JOBLlB*  , 

SAMOUT** DUMMY, • , SOR T SP* 10 , STG-NI PW , TRCH= , 

Ul SAM*2314,ULIB*2314,USAM»* (TAPE9, .OFFER)* , 
VISAM*,VLIB«,VSAM*,VSMOUT*,XClSP=OLD, 

XI NDE  X* * DUMMY .F ILE * ,XUNI T-23 l A, XVOL* 


00000  LOO 
00000200 
00000300 
00300400 
00000500 
00000600 
00000700 
00000800 
0 0000900 


//*•**♦*#******♦***#*♦** ***********************************************  00001000 


//STEPNAME 


EXEC  XSP, I SAM«AAAAAAA, VI SAM**SER-XXXXXX* , 
XVOL=*SEP=YYYYYY* , XD  I SP* < BBB ) , NBRBLK* CODO 


CHARLES  W.  HICKISCH 
DATE-MARCH  t,  1974 


MaJOR.USA  PR  C J CODE*  763NI PS  BRANCH=43l 


C PGM-UTNO  XSPC  »R  EGl CN*CRGN 
OISP«SHR,OSN*£PTF JOBL 
01 SP-SHR.0SN-6J0BLIB 
SVSOUT-! £A,£CL) 


UNIT*£STG,SPACE*(CVL,< 10) ) , DCB* ( DSORG* I S , RECFM* Vli,  C 00002700 


//**♦  ** 

//♦*♦  THIS  PROC  IS  USED  TO  GENERATE  CR  UPOATE  A DISK  RES l CENT  ** 

II***  INDEX  DATA  SET  BASEO  ON  THE  DISK  RESICENT  ISAM  DATA  FILE.  ** 

II***  ** 

II***  //STEPNAME  EXEC  XSP , I SAM* AA A A A A A , VI S AM* • SER-XXXXXX • , ** 

I/***  XVOL='SEP=YYYYYY* ,XDISP*!BBB) ,NBRBLK*CODD  ♦* 

II***  ** 

II*  CHARLES  W.  HICKISCH  MuJOR.USA  PRCJ  CODE-763NIPS  BRANCH=43l 
II*  DATE-MARCH  l,  1974 

II***  ** 

//**t************ *********************************************  ********* 

II*.  ** 

t /UTXSP  EXEC  PGM*UTNOXSPC,RFGlCN*CRGN 

//STEPLIB  DD  OISP*SHR,OSN*£PTF JOBL 
//  DO  01 SP-SHR.DSN-6J0BLIB 

// INDEXPRT  DD  S VSOUT - ! £ A,£CL ) 

// ISAMWORK  00  UNIT*GSTG,SPACE*(CYL, ( 10) ), DCB* ( DSORG* I S , RECFM* V», 

II  LRECL*l000,BLKSI7E*l004,nPTCD*IYLR ,CYL0FL*2) 

// NEwFILE  DD  DSN-£  I SAM, D I SP* SHR , VCL » £V l SAM, UN  I T*£U I S AM 

//SAMFILF  DO  OSN-GSAM.S.UNI T*£USAM,VCLUME=£VSAM, 

II  DISP*(SHR, KEEP), LABEL-!, CLA8),DC8*!PECFM»VB,LPECL*1000, 

//  BLKSIZE»£BSZFILE,TRTCH*£TRCH,OEN*£OEN) 

// SLIB  DO  DSN*£LIB.L,VOLUME*£VLIB,  UNI  T*  £UL  IB,  D ISP*  SHP. 

//  OD  0SN*£J0BLIB,01SP*SHR 

//SORTLIB  DD  DSN* S YS I . SOR TL IB, D ISP*SHR 

// SDRTWK  01  00  UNIT*£STG,SPACE*(CYL,(£SCPTSP),»  CONTI G) 

//S0RTWK02  DD  UN  I T-6STG, SPAC E*!C YL , I £ SORTSP ) , , CONT IG) 

//SORTWK03  DD  UNI T* £STG , SPACE*I CYL ,(£ SCRTSP ),, CONT IG) 

IIS ORTWK04  DD  UNI T- £STG  , SPACE-1 CYL ,(£ SORTSP ), ,CONT IGI 

//S0PTWK05  DD  UNIT-£STG,SP AC E-(CYL»(£SORTSP)»» CONTIG) 

//S0RTWK06  DO  UN  I T*£STG , SPACE-1 C YL , I £ SCRTSP) ,, CONT IG) 

//SOURCPRT  DD  SYSOUT*! £A,£CL) 

IISYSOUT  DD  SYS0UT*!£A,£CL1> 

//SYSPRINT  DO  SYSOUT-I £A,£CL ) 

//SYSUDUMP  DD  SVSOUT-I £A ,£CL 1) 

//UTSAMOUT  DD  £SAMOUT .DC B* IRECF M-VB, LRECL*1000 , BLKS I ZE-£BS ZNEWF , 

II  DE N-£DEN,TRTCH»£TRCH),DISP*(, KEEP), LABEL*!, £LAB),  i 

//  UNIT-£USAM, VOLUMF- ( PRIVATE, RET  AI N, £V  SMOUT) ,DSN*£SAM.S 

//X  INDEX  DD  DSN*£XINDEX.X,DISP-!£XOISP,KEEP),UNIT«£XUNIT, 

//  VOL  *£XVQL , SPACE*! £RLKS I ZE • £NBRBLK) , 

//  DCB-!BLKSIZE»£8LKSIZE,RECFM-F,KEYL£N-4,0S0RG*DA) 


**  00001100 
**  00001200 
♦*  00001300 
**  00001400 
**  OOOOISOO 
♦*  00001600 
**  00001700 
OOOOIBOO 
00001900 
**  00002000 
**  00002100 
**  00002200 
00002300 
00002400 
0D002500 
00002600 


LRECL*ia00,BLKSIZE*l004,nPTCD*IYLR ,CYL0EL*2) 

DO  DSN-£  ISAM,DISP*SHR,VCL»£VISAM,UNIT*£UISAM 
DO  0SN*GSAM. S, UNI T-£USA M , VOLUME =£ VS AM , 

DI SP*! SHR, KEEP) .LABEL- I ,£LA8),DCB* ( PECFM»VB, LRECL*1 000, 
BLKSIZE-£BSZFILE, TRTCH»£TRCH,OEN*£OEN) 

OD  DSN*£LIB.L,VCLUME*£VLIB,UNIT*£UL  IB,DISP*SHP. 

OD  DSN*£JOBLIB,0lSP*SHR 

DD  DSN*SYS1. SORTLIB, DISP*SHR 

00  UN  IT* CSTG, SPACE-1C YL, l£ SCRTSP) , .CONTI G) 

DD  UN  I T-6STG, SPACE-IC YL , I £ SORTSP ) ,,CONTIG) 

DD  UNIT-£STG,SPACE*ICYL.(£ SCRTSP) , .CONTIG) 

DD  UNI T-£STG, SPACE-! C YL, (£ SORTSP ) , ,CONTIG) 

DD  UNIT«£STG,SP AC E«!CYL,!£ SORTSP) , .CONTIG) 

DO  UN  I T-£STG,SPACE-I C YL , I £ SCRTSP) , ,CONT IG) 

DD  SYSOUT*!£A,£CL) 

DD  SYS0UT-!£A,£CL1) 

DO  SYSOUT-! £A,£CL ) 

DD  SYSOUT-! £A ,£CL 1 ) 

DD  £SAMOUT.DCB* IRECF M-VB, LRECL-1000, BLKS I ZE-£BS ZNEWF, 

DEN-fiDEN, TRTCH»£TRCH) ,DI SP* 1 .KEEP) , L ABEL- I , £L AB ) , 

UN  I T-£U SAM, VOLUME- (PRIVATE, RET AIN, £V SMOUT) ,OSN*£ SAM. S 
DSN*£X I NDE  X.X,DISP-(£XOISP,KEEP),UNIT-£XUNIT, 

VOL  *£XVOL , SPACE*! £RLKS I ZE , CNBRBLK) , 
DCB-!RLKSIZE»£BLKSIZE,RECFM-F,KEVLEN-4,OSORG-DA) 


00002800 

00002900 

caaoo3ooo 

C0000310O 

00003200 

000C3300 

00003400 

00003500 

00003600 

00003700 

00003800 

00003900 

00004000 

00004100 

00004200 

00004300 

00004400 

00004500 

00004600 

C00004700 

00004B00 

00004930 

00005000 

00005100 
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NIPS  360  FFS 


PROCEDURES 


//XSTOIS  PROC 
// 

// 

II 

// 

// 

1 1 
u 

ii* 

II*  CHARLES 
//*  DATE*MAF 
II* 

//STP1  EXEC  F 


AaA.BSZFILE-.BSZNEWF-.CC-.CL*' ,' ,CL1*' , • ,CYL0FL*1, 
INOEX*l,I SAM» 'DUMMY. FILE* .JOBLIB*'  FFS. JCBLIB* , 
LAB=SL,ND  ISP*KEEP,0VFL0W*5,PRIME*40,RGN=60K, 
PTFJOBL='PTF. JOBLIB' , 

SAM* 'DUMMY. FILE' , SE QNO* l , TRC H* , U I S 4M* • (2314.P) • , 
USA  Ha • ( TAPE9, ,DEFEP ) • , V I SA M* • SER*C ANCEL • , 
VOVFLOW»'REF=*. DATAFILE' , VPR I ME*' REF-*. DATAF I LE • , 
VSAM* 


CHARLES  W.  HICKISCH 
DATE*MARCH  I,  1974 


MAJOR, USA  PROJ  C0DE-763NIPS  BRANCH* A3  L 


EXEC  PGM*UTBLOI SM  ,REG I ON  = £RGN , PAR M« 


//STEPLIB  DD  OISP*SHR,DSN=£PTFJOBL 
//  DD  DI SP  = SHR  » D SN*£ JOBLl  B 

//DATAFILE  DO  DCB* ( OSORG* I S , CYLOFL* CCYLOFL , BUFN0»5 , BLK S I l E- GBSZNEWF ) , 
//  VOLUME*£VI SAM, 

//  DS  NAME  = £ I SAM . ( INDEX) , SPACE* <C YL , G I NDE X ) , UNI T*£U I SAM, 

//  DISP*! ,£ NO  ISP, DELETE) 

//  DD  DCB  = *. DATAFILE, VOLUME  * GVPR I ME , 

//  DSNAME*£! SAM. (PRIME) , SPAC E *( C YL , GPRI ME) ,UN I T*£U I S AM, 

//  DI$P-( ,£ND!SP,  DELETE) 

//  DD  DCB**.OATAFILE,VOLUME*£VCVFLCW, 

//  DSNAME*GI SAM. (OVFLOW) .SPACE- ( CYL, GOVFLOW) , UNI T*£UISAM, 

//  OISP*( ,£ND1SP,  DELETE) 

//SAMFILE  DD  PSNAME*£SAM.S«DISP*  SHR »LNIT*£USAM,VOLUME*EVSAM, 

//  L ABEL* ( £ SEONO , £L  AB I ,DCB*< RECFM*VB, L RECL* 1 000 , BLKS I ZE*£BSZF I LE , 

//  DEN»£DEN,TPTCH*GTRCH,BUFN0*5) 

//SYSPRINT  DD  SYSOUT«( £A , GCL ) 

//SYSUOUMP  OD  SYSOUT*( £A, £CL1) 


03000100 
00000200 
00000300 
00000400 
00000500 
00000603 
00000700 
00000800 
00000900 
00001003 
00001 100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 
OOOOIBOO 
00001900 
00002000 
00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
00002700 
00002800 
00002900 
00003000 


1 


NIPS  360  FFS 


PROCEDURES 


//XSUBCHK  PROC  A*A,CL«' , • ,CL1»* ,• ,C L2»* , • , JOBL I B- • FFS . JOBL I B* , 

//  PTF JOBL* ' P TF. JOBL I B*  , 

II  LIB*,ULIB*2314, VLIB» 

II* 

//*  CHARLES  W,  HICKISCH  MAJOR, USA  PROJ  C0DE*763NIPS  BRANCH*431 

II* 

//SUBCHK  EXEC  PGM-UTSUBCHK 
//STEPLIB  DD  OSN»£PTFJOBL,OISP«SHR 
//  DO  DISP*SHR,DSN«£JOBLIB 

//SUB  DD  0SN-CL1B.L,VCL*£VLIB,UNIT*6ULIB,D!SP*SHR 
// SYSOMY  00  SYSOUT* ( CA  t CCL J 
//SYSUOUMP  DO  SY$OUT-<  CA  ,CCLl» 

//SYSPRINT  00  SY$0UT*(CA,£CL2) 


0000010C 

OOOOOIIC 

0000020C 

0000030C 

0000040C 

0000060C 

0000070C 

0000080C 

00000810 

00000900 

00001000 

oooouoc 

00001200 


J 

» 


I 
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NIPS  360  FFS 


PROCEDURES 


//XSUBLDR  PROC  A*A , CL-* , • ,C L 1** , • . JOBL I B-*FF S. JOBl I B* , 

//  JOBMAC**FFS.JOBMACRO*  , L IB-NONE  , LI  BD!  SP-OLO, 

//  1 1 BSP*' !2, 1.5) • .MODI IB-’ETEMP* .RGN-60K, 

//  PTFJOBL«*PTF.JOBLIB*,PTFJOBM«*PTF. JOBMACRC* , 

//  STG*NIPW,ULIB«2314, VLIB*,BLK*?294,MDISP*CELETE 

//* 

//*  CHARLES  W.  HICKISCH  MAJOR.USA  PROJ  COOE*763NIPS  BRANCH*431 
//*  DATE -MARCH  1,  1974 

//* 

//SUB  EXEC  PGM*uTSUBLDR,REGION«£RGN 
//STEPLIB  DD  DI SP-SHR , DSN* CPTF  JOBL 
//  DD  DI SP-SHR, D SN*£ JOBLI B 

//SYSUDUMP  DO  SYS0UT=(£A,£CL1) 

//SYSPRINT  DD  SYSOUT *( CA . CCL ) 

//ASSEMIN  DD  UNIT-CSTG,SPACE*(CYL,01).0SNAME*£AIN,0ISP*(,PASS), 
//  0CB-(8LKSIZE-400) 

//LNKEOIN  DD  UNI T-CSTG, SPACE*! CYL » 01 ) »0SNAME*£CL IN»D ISP* ( .PASS) . 

//  DC  B* ( BLKS l ZE-400) 

//SYSOUT  DD  SYSOUT* ( CA . CCL ) 

//ASMBL  EXEC  PGM* IEUASM ,COND* ( 0 . LT , SUB ) ,REGI ON-CRGN 

//SYSUT1  DD  SPACE =( 1700. ( 400.50) ) »UNIT*£STG 

//SYSUT2  DD  SPACE*! 1700. (400, 50)), UNIT*! CSTG .SEP* SYSUT l ) 

//SYSUT3  DD  SP ACE* ( 1700, (400,50) ), UNIT*! CSTG, SEP* (SYSUT l, SYSUT2) ) 
//SYSLIB  DD  DISP*SHR,DSN*CPTF JOBM 
//  DO  01 SP*SHR , DSN*  CJOBMAC 

//  DD  D ISP*SHR ,DSN*SYS l .MACL IB 
//SYSPRINT  DO  SYSOUT*! CA, CCL) 

//SYSPUNCH  DD  UN  I T*£STG, SP ACE*( CYL ,5 ) .DSNAME-CLK I N.DI SP* ( , PASS ) , 

//  DCB*(BLKSIZE*400) 

//SYSIN  DD  DI SP* (OLD .DELETE) .DSNAME-CAIN 

//LKEDT  EXEC  PGM- IEWL , P ARM-* LI  ST , XREF * ,REG ! ON-CRGN, 

//  COND-U  O.LT, ASMBL) , (O.LT.SUB) ) 

//SYSUTi  DD  SPACE*! TRK, (50,51 ) .UNIT-CSTG 

//SYSPRINT  DD  SYSOUT*! CA, CCL ) 

//SYSLMOD  DD  DSNAME*CLIB.L,UNIT*CULIB.VOLUME*CVLIB, 

//  SPACE*(CYL,CLIBSP) ,D ISP* (CLIBOISP, KEEP) , 

//  DC  B* (RECFM-U.BLKS IZE-EBLK) 

//DPUNCH  DD  DSNAME* CLK  IN.DI SP-! OLO, DELETE ) 

//SYSLIN  DD  DSNAME-CCL  IN, DISP*(OLO, DELETE) 

//SYSLIB  DD  DI SP-SHR, DSNAME* C JOBL I B 

//MOOLIB  DD  OS NAME-CMOOL IB,DISP*!OLD,CMOISP) 


00000100 
00000200 
00000300 
03000400 
03000500 
00000600 
00000700 
OOOOOROO 
00000900 
COOCIOOO 
00001103 
03001200 
00001300 
00001403 
•00001S9Q 
00001600 
*00301  TOO 
00001 ROO 
00001900 
00002000 
00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
00002700 
*00002600 
00002900 
00003000 
X00003 100 
0000320C 
00003300 
00003400 
X00003500 
X00003600 
00003700 
00003800 
00003900 
00004000 
00004100 


J 


I 


NIPS  360  FFS 


PROCEDURES 


I 

I 


i 


//XTABGEN  PROC  A*A , BLK *7294, CL* • , • ,CL l- • , • ,CL2* • , • , 

//  JQBL IB*,FFS.JDBLI B* ,L I B=NONE , L IBDI SP-OLD , 

//  LI  BSP*' (2, 1,5) • ,RGN*B0K,SCPTSP»8,STG*NIPW,ULIB*2314, 

//  PTFJnBL*•PTF.JnBLIB, , 

//  VL  IB  = 

//* 

//*  CHARLES  M.  HICKISCH  MAJOR, USA  PROJ  C0DE=763NIPS  BRANCH=431 

//*  DATE=MARCH  I,  1974 

//* 

//TAB  EXEC  PGM*UTTABGEN,REG10N*6RGN 
//STEPLIB  DD  DI SP*SHR, D SN*  CPTF  JOBL 
//  DD  01 SP*SHR,DSN*GJOBLIB 

//SYSOUT  DO  SYSOUT*  (GA.f.CL) 

//SYSUOUMP  DO  SYSOUT *(  GA , CCL i ) 

//SYSPRINT  DO  SYSOUT*! GA , GCL2 ) 

//SORTLIB  DD  D I SP*SHR ,D SNAME*SYS l. SORTLI B 

//SORTWKO 1 DD  SPACE*(CYL»!G  SORTSP I , .CONTIG) .UNIT-GSTG 

// S0RTWK02  DD  SPACE*! CYL , I GS0RT5P ) , ,CONT I G ) , UNIT* I G STG, SEP* SORT WKOl ) , 

//  SE  P=SOR  TWKOl 

/ / SORTWKO 3 DD  SPACE* I CYL, (G SORTSP) ,, CONTIG I , LNI T* ( GSTG, SEP- SORTWK02 ) , 
//  SEP-SORTWK02 

//S0RTWK04  OD  SPACE* (CYL ,! GSOR TSP) ,, CONTIG) , UNI T* ( G STG , SEP- ( SORTWKO l , 
//  SORTWK03 ) ) »SEP*(S0RTWK0l»S0RTWK03) 

//S0RTWK05  DD  SPACE  = ! C YL , I GSORTSP > , ,CCNT  IG) .UNIT* ( GSTG, SEP* ( SORTWK02, 
//  SORTWK04) 1 , SEP* ( SORTWK02, SOft TWK04I 

// SORTWK06  DD  SPACE*! CYL , (GSORTSP) ,, CONTIG) .UNIT* ( GSTG » SEP* ( SORTWKO l » 
//  S0RTWK03,  SORTWK051 ) ,SEP*( SORT WKOl , 50RTWK03 .SORTWK05) 

//SYSLMOO  DD  DSNAME-GLIB.L,V0LUME*6VLIB,UNIT*GULl B, SPACE* (CYL ,GL IBS P ) , 
//  01 SP=(CLIB0ISP,KEEP>.DC8=(RECFM-U,BLKSIZE»GBLK) 


00000100 

00000200 

00000300 

00000310 

00000400 

00000500 

OC  0006  00 
00000700 
OOOOOBOO 
00000900 
00001000 
00001010 
00001100 
00001200 
00001300 
00001400 
00001500 
X00001600 
00001700 
X00001800 
00001900 
X 00002000 
00002100 
X00002200 
00002300 
X00002400 
00002500 
X000C26C0 
00002700 


) 

i 


NIPS  360  FFS 
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PROC  A*  A, 

CL*',  ',CH*» , •,CL2*U,CL3=C,CL4*S,CL5*T, 
FF  T=  • OUMM  Y.FILE', 

FFTl=*DUMMY.FI LE • , FFT2 * 'OUMMY.F ILE • , 
JOBL I B* • FF  S .JOBL I B*  t 
1 1 B = 9 OUMMY.FI LE  ' » 

LI81*•DUMMY.FILE,  , 

PTFJOBL»,PTF.JOBl.  IB*  , 

RGN-82K, 

STG-NIPW, TP  I MQ*TP IMQ , 

TP  OUMP  = • S Y SOUT * ( A , , ) • , 

UFFT-*(2314,P) • , 

UFFT1-M2314.P)  • ,UFFT2-M2314,P)  • , 

UL IB*2314, Ul  I 61  = 2314, 

U0MQ*2314, 

VFFT=,VFFT1*,VFFT2=, 

VOMQ* • REF**. I NMSGQ* , 

VL  IB*»VLIB1*» 

XI NDEX* • DUMMY. F ILE* . 

XUNIT-2314 , XVOL * 


CHARLES  W.  HICKISCH 
OATE-MARCH  1,  1974 


MAJOR, USA  PPOJ  COOE*  763NI PS  BRANCH-431 


//XT  P 
// 

// 

// 
if 
// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//* 
ft* 
ft* 

//* 

//TPMONSUP  EXEC  PGM-UTTPDR VR ,PEG1 ON-CRGN 

//STEPLIB  DO  OSN-GPTFJQBL  .DISP-SHR 

//  DD  DSN-6  JOBL IB,OISP*SHR 

//SYSUT1  00  SPACE*(TRK,(0,5) ),UNIT*CSTG 

//SYSUT2  00  SPACE* (TRK, ( 0,20) ) »UNI T-tSTG 

//SYSUT3  00  SPACE=(TRK»(0,5))»UNIT*(CSTG»SEP=$YSUT1) 

//SYSUT4  00  SPACE-<CYL ,(0,1> ) .UNIT-CSTG 

//Si  IB  00  DSNAME-6LIB.L.UNIT-6ULIB, VOLUME*  6 VL IB.DISP-SHR 
//  OC  DSNAMF-6L  IBl.L.UNIT-C'JLIBl  .VOLUME «C  VLI  Bl,OISP*SHR 

//  00  DSNAME-CJOBLIB, DISP-SHR 

//DATAFILE  00  DISP*SHR ,OSNAME*OUMM Y.F I LE , UNIT* I , P .DEFER ) 

DO  0 ISP*SHR, OSN*OUMMY. F I LE, UNIT- (2314, P, DEFER) 

DD  DISP-SHR, DSN-DUMMY. FILE, UNI T-( 2314 , P .DEFER ) 

00  0 1 SP-SHR, DSN-DUMMY. FILES, UNI T-I2314 ,P,OEFER) 

00  DSN-OUMM Y .F ILE67 »UNIT-(NIPW,2) ♦ SPACE*! TRK, ( 0 ) ) , 0 1 SP-NEM 
DSN-6FFT, 

UNIT -CUFF  T , 

VOLUME- 6 VF FT , 

DISP-SHR 
DSN-GFFT1 , 

UN  I T-6UFFT 1 , 

V0LUME-CVFFT1 , 

DISP-SHR 
DS N-6FFT2, 

UNIT- CUFFT2, 

VOLUME*  CVFFT2, 

DISP-SHR 

DO  SPACE* ( TRK, (5, ,4) ) .UNIT-CSTG 
DD  D SN-OUMMY .F ILEL ,01 SP-SHR 
DO  DISP-SHR, DSNAME-tTPIMQ 
//OMSGO  DD  DISP-SHR, DSNAME-tTPIMQ 

//OUTMSGQ  DD  SP  ACE  - ( TRK  ,0 ) .VOLUME -tVCMQ.UM  T-CUOMQ 
//AMSGQ  DD  UNIT-tSTG,SPACE-CTRK,0) 


//0ATAFIL2 
//0ATAFIL3 
//SAMFILE 
//OATAFILA 
// FFT  OD 

// 

// 

// 

//FFT l 
// 

// 

// 

//FFT2 
// 

// 

// 

// EDCONSOL 
//EOITLIB 
//  INMSGQ 


DD 


DO 


0000010C 

00000200 


00000300 

00000400 

00000500 

00000600 

00000800 

00000900 

00001000 


00001100 

00001200 

00001300 

00001400 

00001500 

00001600 

00001700 

00001800 

00001900 

00002000 

00002100 

00002200 

00002300 

00002400 

00002500 

00002600 

00002700 

00002800 

00002900 

00003000 

00003100 

00003300 

00003400 

00003500 

00003200 


00003600 

00003700 

00003800 

00003900 

00004000 

00004100 
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// SDCONSOL  DO  UN l T-CSTG, SPACE- < 230 C, I 10, .6) ) 

//SDKNSET  DO  SPACE-(CYL,( If  1) I ,UNIT-CSTG,DCB-CRECFM«F,BLKSI2E-100*) 
//STATRECS  DO  SYSOUT* I CA , £CL l 

// SYSLMOD  DD  SPAC E-  ( TRK , ( 20, , 8 1 > ,UNI T-CSTG, OCB-FF S- JCBL I B, 

//  LABEL-EXPDT-66366 
//SYSPRINT  DO  SYSOUT-I £A,CCLI 
//SYSABEND  DD  SYSOUT- ( £A , £CL 1 1 
//TPDUMP  DD  SYSOUT-IGA.CCLl) 

//EDITDUMP  DD  SYSOUT-I £ A , ECL 1 ) 

//SNAPSHOT  DD  $YSOUT»< 6A , £CL l > 

//PL1DUMP  DD  SYSOUT-IEA,  £CL  1 ) 

//SYSONLIN  DO  £TPDUMP 

//X  INDEX  DD  DSN-EX  I NOE  X . X, UNI T-CXUN [ T , VCL-GXVOL  » 0 1 SP- SHR 
//SHARDASD  DD  DSN  »N  IPS  .TP  JOBQ ,D I SP- 1 MCD ,KEE  PI 
//SYSIN  DD  DUMMY 
//U  DD  SYS OUT -(£At£CL2) 

//C  DD  SYSOUT-IEA, ECL3I 
//S  DD  SYSOUT- ( £A , £C LAI 
//T  DO  SYSOUT- ( £A ,£CL5 I 

//SUBFILE  DD  UN IT-ESTG  »SP ACE- (CYL. (0.1,10) ) 

//MENUSET  DD  DSN-DUMMY .F  ILEL ,D I SP-SHR 


00009200 

0000A300 

OOOOAAOO 

0000A500 

0003A600 

0000A700 

0000A800 

0000A900 

00005000 

00005010 

00005020 

00005100 

00005200 

00005300 

00005A00 

00005500 

00005600 

00005700 

00005800 

00005900 

00005910 
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//XTRDISK  PROC  A*A , CL= • . • ,CL1** • • , JCBLI B* • FF S. JOBL IB' , 

//  LAB=SL,RGN*60K, 

//  PTF JOBL =* P TF. JOBL I B*  > 

//  XFDISP=SHR,XFNAME*,XFUNIT=231*,XFV0L=, 

//  IS AM=* DUMMY. FILE* ,UI SAM** 1 231 A , P) • ,VISAM=, 

//  SAM=*OUMMY. FILE*, USAP=*(TAPE9, .DEFER) • ,VSAM=, 

//  XTNAME=,XTUNIT=* (TAPER, .DEFER) •,XTVOL=, 

//  XTLAB=SL» STAT*NO, 

//  BSZFILE=, TRCH* , DEN= 

//******************************************************»***********»** 

//• 

//*  THIS  PROC  IS  USED  TO  TRANSFER  A DISK-RESIDENT  INDEX  DATA  SET 

//*  TO  TAPE.  THIS  OPERATION  CONDENSES  THE  INDEX  DATA  SET.  THE  TAPE 
//*  SO  CREATED  IS  A SEQUENTIAL  DATA  SET  CONSISTING  OF  VARIABLE  LENGTH 
//*  BLOCKED  RECORDS  THAT  CONTAIN  THE  SOURCE  DATA  AND  CONTROL 
//*  INFORMATION  FOR  SUBSEQUENTLY  RECONSTRUCTING  THE  SOURCE  DATA. 

//* 

//* 

//* 

//* 

//* 

//*  * 
//♦*****************♦********♦***************************************** 

//* 

//XTR  EXEC 

//STEPLTB  OD 
//  DD 

//  INDEXDAM 
//  INDEXPRT 


//STEPNAME  EXEC  XTRDI SK, XF NAME=WW , XTNAME* XX , XF VOL»YY , XTVOL=Z Z 


CHARLES  W.  HICKISCH 
D ATE=M ARCH  1,  1974 


MAJOR, USA  PRCJ  C0DE»763NIPS  BRANCH=*31 


PGM=UTNDXTFR,PARM»*DISK,6STAT*,REGI0NfCRGN 
DI  SP * SHR , D SN=  CPTF  JOBL 
DI SP  = SHR , D SN=  G JOB  LI  8 

DD  DSN=CXFNAME,UNIT«eXFUNIT,VOL=CXFVOL,OISP=£XFDISP 
DD  SYSOUT*(£A,£CL) 

//INDEX  SAM  DD  DSN=£XTNAME ,UNI T=£XTUNI T , VOL  = £XTVOL ,0  I SP= (NEW , KEEP) , 
//  LABELS ( .CXTLABJ 

//SYSPRINT  DD  SYSOUT» ( £A , £CL ) 

//SYSUDUMP  DD  SYS0UT=(6A,£CL1) 

//DATAFILE  DD  DSN=£ I SAM , 

//  UNIT=£U I SAM, 

//  VOLUME=f.VI  SAM, 

//  DISP=SHR 

//SA"FILE  DD  DSNsGSAM.S, 

//  UNIT»£USAM, 

//  V0LUM6=£VSAM, 

//  01 SP»( SHR, KEEP)  , 

//  LABELsf .SLAB  I , 

//  0CB»(HECFM*VB,LRECL=1000,BLKSIZE*tB$ZFILE, 

//  TRTCH»£TRCH,DEN-£DEN) 


00000100 
00000200 
00000300 
00000*00 
X000005  00 
X00000600 
00000610 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001*00 
00001500 
00001600 
00001700 
00001800 
00001900 
00002000 
00002100 
00002200 
00002300 
00002*00 
00002500 
00002600 
00002700 
00002800 
X00002900 
00003000 
00003100 
00003200 
X00003300 
X00003*00 
X00003500 
00003600 
X00003700 
X00003800 
X00003900 
X0000*000 
X0000*l00 
X 0000*200 
0000*300 
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//XTRTAPE  PROC  A*A ,CL= • , • ,CL 1 = * , • , JOBLI B = * FFS. JOBL 1 8* , 

II  XFLAB=SL*NBRBLK=50,RGN=60K»XFNAME=, 

//  PTFJOBL  = *PTF.JOBLIB' , 

//  XFUNIT*' ( TAPE9, .DEFER) • ,XFVOL= ,XFD I SP=OLO, 

//  XTDISP*MNEW,KEEP)  • .XTNAME*  ,XTUNIT*2314,XTV0L* 

//*********** * ***** *#* ******* ****** *** ************************* ******** 

//* 

//♦  THIS  PROC  IS  USED  TO  RECONSTRUCT  A DISK-RESIDENT  INDEX  DATA 

II*  SET  FROM  A PREVIOUSLY  UNLOADED  SEQUENTIAL  VERSION  OF  THE  INOEX 
//*  DATA  SET. 

//♦ 

//♦ 

//* 

//* 


* 

* 

* 

* 


//STEPNAME  EXEC  XTRTAPE,  XFNAME=WW,  XTNAME  = XX  , XFVCL*YY  , XT  VOL  = ZZ  * 

« 

CHARLES  N.  HICKISCH  MAJOR, USA  PRCJ  C0DE*763NIPS  BRANCH=43l 
//♦  DATE=MARCH  1, 1974 

//♦  * 
//  ** ******* ****** ***************** ******** *4****** ********************* 


//XTR 

//STEPLIB 

// 

// TNDEXPRT 
//INOEXSAM 
// 

//SYSPRINT 

//SYSUDUMP 

//XINDEX 

// 

II 


EXEC  PG M=UT NO XTFR*P ARM* TAPE, REGION* £RGN 
DD  DI SP*SHR , DSN=£PTP  JOBL 
DO  DISP*  SHR ,0SN=£J08LI8 
DD  SYSOUT=(  £A,£CL) 

DO  DSN=CXFNAHE*UN I T*  6XFUNI T « VOL=£XFVOL, DI SP=CXFDISP , 
LABEL*! ,£XFLAB) 

DD  SYSOUT=(£A,£CL) 

OD  SYSOUT=(tA,£CLl) 

DD  DSN*  EXTNAME ,UNI T*£XTUNI T, VOL*  EXT VOL  , 
DISP=£XTD!SP*SPACE=(560«£N8RBLK) , 

DC B=! BLKSIZE=560,RECFM=F,KEYLEN=4,DS0RG*DA) 


00000100 

00000200 

00000300 

X00000400 

00000500 

00000600 

00000700 

OOCC0800 

00000900 

00001000 

00001100 

00001200 

00001300 

00001400 

OOOOliOO 

00001600 

00001700 

00001800 

00001900 

00002000 

00002100 

X00002200 

00002300 

00002400 

00002500 

♦00002600 

C00002700 

00002800 


NIPS  360  FES 
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//XUTFSCAN 

// 

// 

// 

// 

// 

// 

// 

// 

//* 

//*  CHARLES 

//*  DATE5 

=MARi 

//* 

//UTFLDSCN 

EXI 

// STEPLIB 

DD 

// 

DO 

//SYSPRINT 

DD 

//SYSUDUMP 

DD 

//SYSOUT 

DO 

//DATAFILE 

DD 

//SORTLIB 

DO 

//SORTIN 

DO 

//SORTWKOI 

OD 

// S0RTWK02 

DD 

// 

/ / S0RTWK03 

DD 

// 

//SORTWK04 

DD 

// 

// 

//SORTWK05 

DO 

// 

// 

//SORTWK06 

DD 

// 

// 

//ISAMWORK 

DD 

//SAME  ILE 

DD 

// 

// 

//SYSUT2 

DO 

// 

DD 

// TRANST  DD 

// 

PROC  A=A , BSZF  ILE* . 

Cl*', ',CLl*', • ,DEN=,  I SAM* ‘DUMMY. FILE* , 

JOBUB=,FFS- JOBL  IB'  ,L  AB=SL  , L IB=*  OUMMY.F  I LE  • , 

LIB1* • DUMMY. F ILE' ,RGN=98K,SAM=* OUMMY. FILE* , 
9TFJ0BL=*PTF. JOBLIB' , 

SORTSP=10, STG=NIPW,TBLK=500,TDI  SP  = MOD, 

TRANS*' DUMMY. FILE' , TP ANSP=200, TRCH  = , UI S AM= • I 23 14 ,P) ■ , 
UL I B=2314,UL IB  1 = 231 A, US AM*' (TAPE9, .DEFER! •, 
UTRANS=2314,VISaM*, VL I B= , VL I B 1= , VS A M= , VTRANS* 


W.  HICKISCH 
CH  1,  1974 


MAJOR  fUSA  PRC J C0DE=763NIPS  BRANCH=43l 


:C  PGM=UTFLDSCN,RFGICN=£RGN 
01 SP=SHR,OSN=£PTF JOBL 
DISP=SHR,DSN=£JOBLI  B 


DSNAME=SYS1.S0RTLIB,DISP=SHR 
UNIT*£STG, SPACE=ITRK,( £TRANSP,1501) 


UN  I T* I £STG » SEP* SORTWKOI ) » SE P=S0RTWK01 
SPACE=ICYL,!£SORTSP»..CONTIG), 
UNIT*!£STG,SEP=SORTWK02> , SEP* S0RTWK0  2 
SPACE*! CYL  1 1 £ SORTSP ) » » CONTI G ) , 
UNIT=!£STG,SEP*(SORTMKiJl»  SORT WK03 ) > , 

SEP*! SORTWKOI ,S0RTWK03) 

SPACE*1CYL»!  £ SORTSP  ) » »C'JNT IG)  , 

UN IT*! £ STG, SEP* I SORTWK02  »SCRTWK04 ) ) , 

SEP=( SORTWK02  , SORTWK04 ) 

SPACE =t CYL  ,I£SORTSP) , .CONTIGl , 

UN IT=(£STG,SEP=( SORTWKOI, SCRTWK03, S0RTWK05) ) , 
SEP*! SORTWKOI. SORTWK03 , SGRTWK05 > 


LABEL*! ,£LAB) ,CCB*(REC FM=VB,LRECL= 1000, BLKSI ZE*£BSZFILE, 
TRTCH*£TRCH,DEN*£DEN» 


DSN AME=£TR ANS, UN IT  = £UTR ANS  » VOLUME* £V TP  ANS,DISP=£TDISP, 
DC  B= I RECFM*FB»  LRECL*50.BLKS l ZE*CTBLK ) 
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00000100 

00000200 

00000300 

00000400 

00000410 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

00001100 

00001200 

00001300 

00001400 

00001410 

00001500 

00301600 

00001700 

00001800 

00001900 

00002000 

00002100 

00002200 

00002300 

00002400 

00002500 

00002600 

00002700 

00002800 

00002900 

00003000 

00003100 

00003200 

00003300 

00003400 

00003500 

00003600 

00003700 

00003800 

00003900 

00004000 

00004100 

00004200 


i 


NIPS  360  FFS  PROCEDURES 


1 

//XUTODE  PROC 

A=  A , 

00000100 

// 

CL**  » • f 

00000200 

// 

JOBLIB=*EFS.JOBLIB* , 

00000300 

I // 

PTFJOBL=*PTF.JOBLlB», 

00000400 

// 

LI B=  * DUMHY.FI LE  * t 

00000500 

// 

RGN=66K, 

00000603 

// 

SD  I SP=SHR , 

00000700 

// 

SNAP=, 

00000800 

// 

SO  URCL=* DUMMY. FILE*, 

00000900 

// 

UL IB=2314* 

00001000 

// 

USOURCL  =23 14» 

OOOCllOO 

// 

VL IB=f 

00001200 

// 

VSOURCL* 

00001300 

//XUTODE  EXEC 

PGM=UTOOF, REG ION=CRGN, PAR M=£ SNAP 

00001400 

//STEPLIB  DO  DSN=GPTFJOBL .DISP-SHR 

00001500 

//  DO 

DISP  = SHR,0  SN=  £ JOB  L I B 

00001600 

//SYSUDUMP  DO 

SYSOUT=I£At£CL> 

00001700 

//SNAPSHOT  DD 

SYSOUT  = ( £ A . £CL ) 

00001  BOO 

//SOURCPRT  DO 

SYSOUT=(CAtCCLI 

00001900 

//OODPRT  DD 

SYSOUT=I £A,£CL> 

00002000 

//SYSPRINT  DO 

SYSOUT=(£A,£CL> 

00002100 

//SI  IB  DD 

DISP*OLD,DSN=£LIB.LfUNIT=£ULIBtVOL*£VLIB 

00002200 

//SOURCLIB  DD 

DISP=£SOl SP»DSN=£SOLRCL.L«UNIT=£USOUPCL » VCL=  CVSOURCL 

00002300 

t 
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NIPS  360  FFS 


PROCEDURES 


j 

! 


//X'JTSOUPC  PROC  CL=*,  '.CLl**.  • , JOBL IB-' FFS. JOBLI B*  , 

//  PTFJOBL-'PTF.JOBLIB', 

//  NAME-.SDISP-SHR, SOURCL-.USOURCL-2314, VSOURCL- 

//* 

//*  CHARLES  W.  HICKISCH  MAJOR, USA  PRCJ  CCDE-763NIPS  BRANCH-431 
//♦  DAT  ESMARCH  1,  1974 
//* 

/ /SOURC  EXEC  PGM-UTSOURC 
//STEPLIB  DD  DI SP  = SHR , D SN-CPTF  JOBL 
//  DD  01 SP-SHR ,D  SN-C JOB  LIB 

// SOURCPRT  DD  SYSOUT-I A, ECL ) 

//SOURCL IB  DD  DI SP=£  SO  I SP, D SN- £ SOURC L. L, VCL-GVSOURCL , UNI T-CUSOURCL 
//SYSUDUMP  DD  SYS0UT=(A,£CL1) 

//SYSIN  DO  DI SP* SHR , DSN-6 SOURCL.L I6NAME)»UNIT=6US0URCL»VCL*6VSCURCL 


00000100 
00000110 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
00000800 
00000810 
00000900 
0000  1000 
00001100 
00001200 


/ 


DISTRIBUTION 


CCTC  CODES  COPIES 

C124  ( Reference;  and  Record) 3 

Cl  24  (Record  Copy)  Stock 6 

C240  20 

C315 1 

C341  (Maintenance  Contractor) 10 

C341  (Stock) 70 
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